Label zur Laufzeit - Parent

[delphinia]

Hallo,

ich erstelle zur Laufzeit eine GroupBox in der soll ein label

Doch wie sag ich dem Label das es in die zur Laufzeit generierten GroupBox soll?

[mkinzler]

In dem du diese als Parent setzt

[Deep-Sea]

Ähm, sagt deine Überschrift das nicht schon?!
MeinLabel.Parent := MeineGroupBox;

[mleyen]

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  AGrpBx: TGroupBox;
  ALbl: TLabel;
begin

  AGrpBx := TGroupBox.Create(Self);
  with AGrpBx do
  begin
    Name := 'AGrpBx1';
    Parent := Self;
    Left := 20;
    Top := 20;
    Width := 200;
    Height := 100;
    Caption := 'GrpBx1';
    TabOrder := 0;
  end;

  ALbl := TLabel.Create(Self);
  with ALbl do
  begin
    Name := 'ALbl1';
    Parent := AGrpBx;
    Left := 10;
    Top := 20;
    Width := 15;
    Height := 10;
    Caption := 'label1';
  end;

end;

[delphinia]

Ha ja das weiss ich auch aber - wie gebe ich den Namen der GroupBox an die Label? kenne den namen ja nicht da ich mehrer GroupBox erstelle!

[rollstuhlfahrer]

Entweder du hast noch die Variable zur Groupbox oder du solltest der GroupBox einen Namen geben, dass du sie mit FindComponent() wieder finden kannst.

Bernhard

[delphinia]

Danke - ABER


Parent := (FindComponent('gb_' + IntToStr(tab.FieldAsInteger(tab.FieldIndex['pid']))) as TGroupBox); Wäre das dann doch die Label Wird nicht angezeigt (sehe ich nicht)

Delphi-Quellcode:

          Caption := 'Nachname:';
          Top := 25;
          Left := 25;
          Parent := (FindComponent('gb_' + IntToStr(tab.FieldAsInteger(tab.FieldIndex['pid']))) as TGroupBox);

          AutoSize := True;
          Height := 13;

[rollstuhlfahrer]

dann prüfe mal nach, ob du nicht zufällig das Parent auf nil setzt, heißt, dass FindComponent die gesuchte Komponente auch findet.

Bernhard

ADD: Warum setzt du AutoSize auf True, wenn du danach eh die Höhe änderst?

[himitsu]

Wie/wo hast du denn die GroupBox erstellt?

FindComponent steht hier für Self.FindComponent und es wird demnach nur das gefunden, wovon Self der Owner ist.

[rollstuhlfahrer]

Klar, woher soll FindComponent denn auch wissen, von welchem Objekt es die Unterobjekte durchsuchen soll. (Wenn man ihm es nicht sagen kann.)