forms - 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;