[Delphi 7] PageControl

Jak zrobić, żeby podczas włączania programu w PageControl robiły się nowe TabSheety:?

--------------------
by Mikla
http://www.modelplanet.prv.pl
mailto:miklao@interia.pl
GG:3194563

---

procedure TForm1.FormShow(Sender: TObject);
var NewTab:TTabSheet;
begin
NewTab:=TTabSheet.Create;
NewTab.PageControl:=PageControl1;

end;

cytat:Thorven napisał:

procedure TForm1.FormShow(Sender: TObject);
var NewTab:TTabSheet;
begin
NewTab:=TTabSheet.Create;
NewTab.PageControl:=PageControl1;

end;

A jak zrobić, żeby to miało kilka stron, i jak zmienić im Caption:?

--------------------
by Mikla
http://www.modelplanet.prv.pl
mailto:miklao@interia.pl
GG:3194563

var a:TTabSheet;
i:integer;
begin
for i:=1 to liczbastron do
begin
a:=ttabsheet.Create(pagecontrol1);
a.PageControl:=pagecontrol1;
a.Caption:='Caption Tabsheeta';
end;

A później można się do nich odwoływać przez TPageControl :

PageControl1.Pages[0].Caption:='Caption 1-szego tabsheet-a';

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl