★★★★★菜鸟提问： 如何动态的创建TTabSheet,并且该TabSheet能够预先在design time先设计好？

Question

我在Delphi的控件面板上怎么找不到TTabSheet控件？

Answer 1

其实是PageControl控件，win32页var
  NewSheet:TTabSheet;
begin
  NewSheet:=TTabSheet.Create(self);
  with NewSheet do
  begin
    PageControl := PageControl1;
    Caption:=PageCaption;//自己写
    Hint:=PageHint;//自己写
  end;

Answer 2

你先在设计时创建所有的tabsheet，然后再设tabvisible为false，以后控制PageControl.activeindex的值就可以显示相应的tabsheet了.

Answer 3

兄弟们偏题了：
...并且该TabSheet能够预先在design time先设计好

Answer 4

我觉得你可以建一TFrame
然后动态创建一TTabSheet
TFrame的Parent设为该TTabSheet