Label zur Laufzeit - Parent

[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.)

[himitsu]

Zitat von rollstuhlfahrer:

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

Da ich es grad noch gesehn hab,

Wieso sollte man es diesem nicht mitgeben können?

FindComponent ist eine Methode und Funktion.
Es steckt in TComponent damit auch in TForm.
Wenn man dieses nun aus einer Methode seiner Form aufruft, dann sucht es natürlich in TForm und findet somit alles, von welchem die Form der Owner ist.
Da die VCL die DFMs so läd, daß die Form von allen enthaltenen Komponenten der Owner ist, wird normalerweise auch alles gefunden, welches über die DFM automatisch erstellt wurde,
was aber nicht automatisch auf alles zutrifft, welches man manuell erstellt.

Heißt also, wenn man das FindComponent einer anderen Komponente aufruft, dann findet man das in dieser Komponente verwaltete Zeug.

[mkinzler]

Wenn man diese Kompos aber selber erzeugt, sollte man auch die Referenzen direkt ansprechen können

[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