TabSheet在IDE上是看不到的,如果你想要使用它的话,要用下面的方法来做:procedure TForm1.FormCreate(Sender: TObject);var i: Integer; begin with PageControl1 do for i := 0 to 9 do with TTabSheet.Create(Self) do begin PageControl := PageControl1; Pages[i].TabVisible := (i mod 2 = 0); Caption := 'PageIndex: ' + IntToStr(Pages[i].PageIndex) + ' TabIndex: ' + IntToStr(Pages[i].TabIndex); end; end;
TTabSheet is an individual page in a TPageControl object. 放一个TPageControl 到窗体上 右键-〉new page 就可以看到什么是TTabSheet
i: Integer;
begin
with PageControl1 do
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Pages[i].TabVisible := (i mod 2 = 0);
Caption := 'PageIndex: ' +
IntToStr(Pages[i].PageIndex) + ' TabIndex: ' +
IntToStr(Pages[i].TabIndex);
end;
end;
放一个TPageControl 到窗体上
右键-〉new page
就可以看到什么是TTabSheet