如何动态生成TabSheet，就像最近流行的一些浏览器一样，用动态生成按钮的方法好像不行(100分)

如何动态生成TabSheet，就像最近流行的一些浏览器一样，用动态生成按钮的方法好像不行

怎么会呢？
t1:=ttabsheet.create(self);
t1.pagecontrol:=myPageControl;
//注意这句话，指定其属于那个pagecontrol

Delphi:
var Thetabsheet:ttabsheet;
begin
TheTabSheet := TTabSheet.Create(Self);
TheTabSheet.Parent := Pagecontrol;
TheTabSheet.PageControl := PageControl;
TheTabSheet.Caption := 'New';
end;

C++Builder:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTabSheet *p;
p = new TTabSheet(this);
// 注意 p->Name 每次必须不同
p->Name = AnsiString("Page")+PageControl1->Tag++;

p->Caption =p->Name;
p->PageControl = PageControl1;
}

可以呀，parent 和 pagecontrol 指定一个就行乐。

多人接受答案了。