TabControl控件的用法

[huodaosi]

想编一个多窗体的程序，需用到TabControl或PageControl控件，但不会用，有没有介绍控件用法的例子和资料？

[立志做一个佳娃~]

procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
begin
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Caption := 'TabSheet #' + IntToStr(i);
end;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
var
PrevCaption, NextCaption: ShortString;
begin
with (Sender as TPageControl) do
begin

PrevCaption := FindNextPage(ActivePage, True, False).Caption;
NextCaption := FindNextPage(ActivePage, False, False).Caption;
end;
ShowMessage('Previous tab caption: "' + PrevCaption +
'" Next tab Caption: "' + NextCaption + '"');
end;


祝：身体健康！