Formular eines TWinControls ermitteln

[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