Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
29. Aug 2003
OK, nur da mußt du dich jawohl auch um das Erzeugen der ganzen Komponenten kümmern. Und da das Erzeugen bei jedem TabSheet gleich ist und in ner Schleife abgearbeitet wird, macht es keinen Unterschied. Somit gibt es keine (mir bekannte) Lösung ohne viel Aufwand.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
29. Aug 2003
Nö, dynamisch heißt halt "Schreibarbeit".
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
29. Aug 2003
Du erweiterst die Funktion noch etwas:
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
29. Aug 2003
Die Idee mit dem TabControl ist schlecht, da der Zugriff darauf ziemlich schlecht geht.
Hier mal schnell was zum Erstellen der Tabs:
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 :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
29. Aug 2003
Das Ding brauch noch nen Parent, Name (eindeutig sein muß)...
Der Weg stimmt aber.
Wobei, erstell die TabSheets so und mit nem Array. Ansprechen kannst du sie ja mit FindComponent.