Die Idee mit dem TabControl ist schlecht, da der Zugriff darauf ziemlich schlecht geht.
Hier mal schnell was zum Erstellen der Tabs:
Delphi-Quellcode:
var MyTabSheet: TTabSheet;
i: integer;
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;
end;
end;
Ansprechen kannst du sie jetzt mit FindComponent.
@ Matze: Sind falsch verstanden deine Lieblingswörter?
(nicht böse gemeint)