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;

[delphinia]

scheint nicht so!

ShowMessage((FindComponent('gb_' + IntToStr(tab.FieldAsInteger(tab.FieldIndex['pid']))) as TGroupBox).Name); Gibt ne Zugriffsverletzung..

Warum findet FindComponent die Box nicht? Die ist ja da ich sehe sie
Liegt das daran das die Box zur Laufzeit in eine zur Laufzeit erstellte Page (TpageControl) erstellt wird?

[rollstuhlfahrer]

es geht ja nicht ums sehen. Dann prüfe nochmal, wie du auf den Namen kommst.

Eine AV scheint mir hier aber sehr komisch. Steht nicht zufällig dabei, dass das Objekt nicht nach TGroupBox gecastet werden kann? Ansonsten hast du ne Komponente erwischt, die die Eigenschaft Name nicht hat.

Bernhard