请问如何动态创建frame，并把frame放到tabcontrol或pagecontrol中去，当tabindex改变时关闭frame，创建令一个新的

Question

为什么在tabindex 3中放控件，在1、2中也看得见

Answer 1

1.可以从名字上看出来.
tabcontrol   标签控制-对同一页面进行不同控制
  应用:如腾讯浏览器.delphi组件面板
pagecontrol  页面控制-对不同页面进行控制.
2.
如何动态创建frame，并把frame放到tabcontrol或pagecontrol中去，当tabindex改变时关闭frame，创建令一个新的???type
  TForm2 = class(TForm)
    TabControl1: TTabControl;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;
  Frame:Tframe3;
implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
  Frame := Tframe3.Create(nil);
  Frame.Dock(TabControl1,TabControl1.BoundsRect);
  Frame.Align:= alClient;
end;procedure TForm2.TabControl1Change(Sender: TObject);
begin
  if Assigned(Frame) then
  begin
  Frame.Free;
  Frame:=nil;
  end
  else
  Button1.Click;
end;