Pagecontrol - neue Seite, neues Element

[Carzoo]

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.

[Bummi]

Am einfachsten Owner und Parent innerhalb der Schleife auf Newsheet setzen.

[Ghostleader]

Mit welchem Befehl erstellt man denn eine neue Komponente auf dem jeweililgen Sheet?
NewSheet.Create()
?

[Bummi]

Exemplarisch

Delphi-Quellcode:

procedure TForm1.CreateElements(Aparent:TWinControl;i:Integer);
begin
  With TCombobox.Create(self) do
    begin
    Parent := Aparent;
    left := 10;
    top  := 10;
    Name := 'CB' + IntToStr(i);
    end;
  With TStringGrid.Create(self) do
    begin
    Parent := Aparent;
    left := 10;
    top  := 30;
    Name := 'SG' + IntToStr(i);
    Width := Aparent.Width - 20;
    Height :=  Aparent.Height - 50;
    end;

end;

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 SZ do
  begin
    PageControlGeom.visible:=true;
    NewSheet:=TTabSheet.Create(PageControlGeom);
    newSheet.PageControl:=PageControlGeom;
    newSheet.Caption:='Seite '+IntToStr(i);
    CreateElements(newSheet,i);
    end;
  end;

[Ghostleader]

Danke, funktioniert...

[Carzoo]

Vielen Dank!