如何在Delphi中访问父表单

Question

我正在编写自己继承自TButton的组件.我需要使用父表单进行一些操作,我的新组件将被放置.

那么,如何从我自己的组件代码访问父表单？

代码示例(MyComponentCode.pas):

ButtonParent.Canvas.Pen.Color := RGB(255,255,255); // where "ButtonParent" have to be a parent form

帮我解决这个问题.谢谢.

Answer 1

要访问TForm组件所在的父级,即使组件实际位于另一个容器控件(如TPanel或TFrame)上,也请使用单元中的GetParentForm()函数Vcl.Forms:

uses
  ..., Forms;

var
  Form: TCustomForm;
begin
  Form := GetParentForm(Self);
  //...
end;