Pagecontrol - neue Seite, neues Element

[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;