Formular eines TWinControls ermitteln

[gmc616]

Irgendwie stehe ich auf dem Schlauch ...

Ich habe (als Beispiel) eine TForm, auf ihr eine Panel, darauf eine Groupbox, dann wieder eine Panel und so weiter uns so weiter.
Ganz oben liegt ein Button.

Nun möchte ich beim Klick auf den Button den Namen des Formular, oder besser das Formular als Objekt direkt, ermitteln.

Die DP-Suche hat mir bisher nicht weiter helfen können ...

[marabu]

Hi.

In bestimmten Fällen wirst du weitere Bedingungen einbauen müssen, aber so etwa geht es:

Delphi-Quellcode:

function GetForm(c: TComponent): TForm;
begin
  if c.Owner is TForm
    then Result := c.Owner as TForm
    else Result := GetForm(c.Owner);
end;

Grüße vom marabu

[xaromz]

Hallo,

wäre nicht die Suche über Parent angebracht statt über Owner? Ein Owner kann ja irgendeine Komponente sein.

Delphi-Quellcode:

function GetForm(c: TControl): TForm; 
begin 
  if c.Parent is TForm 
    then Result := c.Parent as TForm 
    else Result := GetForm(c.Parent); 
end;

Gruß
xaromz

[marabu]

Recht hast du.

Freundliche Grüße vom marabu

[gmc616]

Danke euch Beiden! Beide Funktion funzen Super ...

das Schlüsselwörtchen is war mir entfallen ...

Wieso lieber parent als owner? Wo ist der Unterschied??

Gruß
gmc

[marabu]

xaromz hat Recht - ich stehe manchmal etwas neben mir.

Der Owner ist für das life cycle management zuständig, der Parent für die Visualisierung.

marabu