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

发布时间：2020-12-15 09:20:54 所属栏目：大数据来源：网络整理

导读：需要在Delphi中检测父表单(FireMonkey 3)以获取此表单上的任何控件. 最简单的方法是什么？解决方法控件的 Root 属性指向最上面的Parent. Root是接口类型 IRoot .在其上调用GetObject会生成Form.表格可以是TCustomForm,TCustomForm3D,TForm,TForm3D,它们都

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

最简单的方法是什么？

解决方法

控件的 Root属性指向最上面的Parent.

Root是接口类型IRoot.在其上调用GetObject会生成Form.表格可以是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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!