delphi - 如何检测控件的父窗体？

Question

需要在 Delphi (FireMonkey 3) 中检测此表单上任何控件的父表单。

最简单的方法是什么？

Answer 1

Root控件的属性指向最上面的父级。

根接口(interface)类型为 IRoot 。对其调用 GetObject 会生成表单。表单可以是 TCustomForm、TCustomForm3D、TForm、TForm3D 类型，所有这些类型都有 TCommonCustomForm作为祖先:

function GetParentForm(Control: TFmxObject): TCommonCustomForm;
begin
  if (Control.Root <> nil) and
      (Control.Root.GetObject is TCommonCustomForm) then
    Result := TCommonCustomForm(Control.Root.GetObject)
  else
    Result := nil;
end;