控件动态创建后显示不出来。

Question

procedure Tfm_TFMesg.Button2Click(Sender: TObject);
var
  TabSheet1:TTabSheet;
begin
TabSheet1:=TTabSheet.Create(PageControl1);
TabSheet1.Parent:=PageControl1;
TabSheet1.Visible:=True;
PageControl1.ActivePage:=TabSheet1;
PageControl1.ActivePageIndex:=0;
end;
为什么TabSheet1创建后，在程序执行后却显示不出来呀。

Answer 1

NewTabSheet := TTabSheet.Create(PageControl1);NewTabSheet.PageControl := PageControl1;

Answer 2

哈哈，出来了，我怎么忘了试这个属性呢。
谢谢foxyy8888，分全给你！

Answer 3

with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;      Name := 'ts' + inttostr(i);
      Caption := inttostr(i);
      PageControl1.ActivePageIndex:=0;
   end;