Formular eines TWinControls ermitteln

[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