Hallöchen,
Ich hab folgendes geplant:
Editfeld --> Zahl wird eingegeben
Button --> Klick
entsprechend der eingegebenenzahl werden Sheets im Pagecontrol erstellt.
Soweit klappt das auch.
ich würde jetzt gern auf jedem neu erstellten Sheet noch zwei Elemente einfügen:
pro Seite eine
Combobox und eine
StringGrid.
Ich weiß nur nicht, was ich als AOwner angeben muss.
Kann ich das in der selben Schleife laufen lassen?
Oder lieber eine zweite Schleife?
Hier mal der bisherige Code(nur die Seitenerstellung):
Code:
procedure TForm1.Button1Click(Sender: TObject);
var newSheet:TTabSheet;
i:Integer;
SZ:Integer; //SZ = Seitenzahl
begin
SZ:=StrToInt(EditSZ.Text); //Seitenzahl wird ausgelesen
for i:=1 to FZ do
begin
PageControlGeom.visible:=true;
NewSheet:=TTabSheet.Create(PageControlGeom);
newSheet.PageControl:=PageControlGeom;
newSheet.Caption:='Seite '+IntToStr(i);
end;
end;
end.