Thema: Delphi Objekte auf Tabsheets

Einzelnen Beitrag anzeigen

RoyKeane

Registriert seit: 20. Apr 2007
7 Beiträge
 
#1

Objekte auf Tabsheets

  Alt 20. Apr 2007, 15:07
hallo, ich mal eine frage, ich habe leider bei google oder auch in den foren keine passende lösung gefunden. ich möchte meine komponenten (labels, groupboxes, tabsheets) dynamisch erzeugen, da ich n - Tabsheets brauche. das klappt auch schon alles hervorragend, mein problem ist jetzt wie ich die einzelnen labels anspreche
so schauts aus:

Delphi-Quellcode:
for i := 1 to n - 1 do
    begin
    Tabsheet[i] := TTabsheet.Create(Form1);
    with Tabsheet[i] do
      begin
      Parent := PageControl1;
      PageControl := PageControl1;
      end;
    end;

//[...]

for i := 1 to n - 1 do
    begin
    GroupBox1 := TGroupBox.Create(Form1);
    with GroupBox1 do
      begin
      Caption := ' User ';
      Parent := TabSheet[i];
      end;

  Label1 := TLabel.Create(Form1);
  with Label1 do
    begin
    Caption := 'Current User: ';
    Parent := GroupBox1;
    Top := 20;
    Left := 8;
    Height := 13;
    Width := 71;
    end;

end;
davon noch ein wenig mehr, sodass ich auf jedem meiner n tabsheets das gleiche muster habe. meine frage ist jetzt wie ich zb. das label1 auf dem ersten tabsheet anspreche?
ich kann zwar mit label1.caption oder so arbeiten, da aber auf allen tabsheets die labels gleich heißen, kann ich quasi nur die auf der letzten seite ansprechen...
am besten wäre sowas wie tabsheet[3].label1.caption ... so in der art. kann mir da jmd weiterhelfen?
danke

Andreas
  Mit Zitat antworten Zitat