一个问题，怎样在PC:PageControl上增加TabSheet1,TabSheet1,TabSheet1….

Question

var
  TS:TTabSheet;
begin
  TS := TTabSheet.Create(Self);
  TS.PageControl := PC;
  TS.Name := 'TS1';
  TS.Caption := 'TS1';
end;如果是多个TabSheet，只要TS.Name设置成不同就可以了。

Answer 1

唉，来迟了！
如果有多个，可用
for i:=0 to n do
begin
  TS := TTabSheet.Create(Self);
  TS.PageControl := PC;
  TS.Name := 'TS'+inttostr(i);
  TS.Caption := 'TS'+inttostr(i) ;
end;

Answer 2

按以上两位回答去做均失败！
   提示为：Control '' has no parent window

Answer 3

不会吧，我可是试验过才说的。
估计是你调用的时候有问题。是在一个Form的函数中创建的么？最简单的程序：
新建一个Form，放一个PC:TPageControl;
在FormCreate中，动态增加一个TabSheet。
win2000+D6运行通过。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;type
  TForm1 = class(TForm)
    PC: TPageControl;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
  TS:TTabSheet;
begin
  TS := TTabSheet.Create(Self);
  TS.PageControl := PC;
  TS.Name := 'TS1';
  TS.Caption := 'TS1';
end;end.

Answer 4

DreamTiger先生：
  是做元件时出错，不是在Form上建立。