请问如何在pagecontrol上新建一个Tabsheet??

[Nuke]

请问如何在pagecontrol上新建一个Tabsheet??
唉，研究了半个小时的help也没看出来

[929]

在PAGECONTROL上加入TABSHEET，可分为设计时和运行时两种。
设计时，用右键单击加入PAGECONTROL组件，出现NEW PAGE等菜单项，选NEW PAGE可建立新的页（TABSHEET）。
运行时，可在程序中声明变量为TABSHEET类型，然后用CREATE以SELF为参数生成新的TABSHEET，然后将此新生成的TABSHEET的PAGECONTROL属性设为FORM上的PAGECONTROL即可。
比如：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
tab1:TTabSheet;
begin
tab1:=TTabSheet.Create(self);
tab1.Caption:=timetostr(time);
tab1.PageControl :=PageControl1 ;
end;

end.

[Michael]

我来晚啦