有谁知道PageControl中页如何的动态创建？？

Question

有谁知道PageControl中页如何的动态创建？？var abc:PageControl;
abc:=pageControl.create;
abc.left:=20;
abc.top:=30;
abc.parent:=form1;
abc.show;
可是里面的页面如何创建？？
还有TabControl和PageControl的什么不同？？控件FlatStyle7的FlatTabControl如何使用？？
我在窗体上放了个FlatTabControl,并设置了Tabs的TStrings属性，加了三页，但点上去提示"Cannot focus a disabled or invisible window"的错误，如何解决？又如何以动态方式创建？

Answer 1

1.
procedure TForm1.Button1Click(Sender: TObject);
var
tab1: TTabsheet;
begin
  tab1 := TTabsheet.Create(self);
  tab1.Caption := '新页面';
  tab1.PageControl := PageControl1;
end;
2.
tabcontrol 共用一个Page.
Pagecontrol 分别用不同的Page.
pagecontrol比tabcontrol功能强大一些，可以说是加强板的tabcontrol

Answer 2

    
动态添加：tabsheet2:=ttabsheet.Create(self);tabsheet2.Caption:='fkjsd';tabsheet2.PageControl:=pagecontrol1;删除：tabsheet1.PageControl:=nil;
 
   

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
tab1: TTabsheet;
begin
  tab1 := TTabsheet.Create(self);
  tab1.Caption := 'new';
  tab1.PageControl := PageControl1;
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
ii:ttabsheet;
begin
ii:=ttabsheet.Create(pagecontrol1);
ii.PageControl:=pagecontrol1;
ii.Caption:=inttostr(form1.PageControl1.PageCount);
end;procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to pagecontrol1.PageCount-1 do
begin
if pagecontrol1.Pages[i].Showing then pagecontrol1.pages[i].free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
pagecontrol1.Pages[pagecontrol1.ActivePageIndex].Free;
end;end.