Du erweiterst die Funktion noch etwas:
Delphi-Quellcode:
begin
for i := 1 to 10 do begin
MyTabSheet := TTabSheet.Create(PageControl1);
MyTabSheet.Parent := PageControl1;
MyTabSheet.Name := 'TabSheet'+InttoStr(i);
MyTabSheet.Caption := 'TabSheet'+InttoStr(i);
MyTabSheet.Tag := i;
MyTabSheet.Visible := true;
MyTabSheet.PageControl := PageControl1;
for j := 1 to 10 do begin
MyButton := TButton.Create(MyTabSheet);
MyButton.Parent := MyTabSheet;
MyButton.Name := 'Button'+InttoStr(i)+'-'+InttoStr(j);
MyButton.Caption := 'Button'+InttoStr(i)+'-'+InttoStr(j);
MyButton.Width := 50;
MyButton.Left := j * MyButton.Width + 10;
end;
end;
end;
Alles ungetestet, sollte aber das Prinzip klar machen. besondere Aufmerksamkeit gilt halt der Namensverteilung (doppelte,...)!