如何在Altium PCB IDE中为动态创建的GroupBox添加OnClick事件？

你的代码主要存在两个核心问题，导致编译器无法识别OnClick事件的赋值：

1. 循环继承的类定义错误 #

你定义的TDynamicClick = class(TDynamicClick)是循环继承，类不能继承自身，这种定义完全无效，编译器无法正确解析这个类的结构。

2. 事件处理方法的作用域错误 #

ShowMessage是TDynamicClick类的成员方法，你既没有创建该类的实例，也没有通过实例访问这个方法，直接赋值gb.OnClick:= ShowMessage时，编译器找不到这个全局可用的过程。

修正方案（推荐最简写法） #

不需要单独定义额外类，直接把事件处理过程放在窗体类内部，这是Delphi动态控件事件绑定的常规写法：

步骤1：在窗体类声明中添加事件过程 #

type
  TForm1 = class(TForm)
    ListObject: TPanel;
    Button1: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    // 新增事件处理过程的声明
    procedure GroupBoxClicked(Sender: TObject);
  public
    { Public declarations }
  end;

步骤2：实现事件处理过程 #

implementation

{$R *.dfm}

procedure TForm1.GroupBoxClicked(Sender: TObject);
begin
  TGroupBox(Sender).Caption := 'Clicked';
end;

步骤3：动态绑定事件 #

修改按钮点击事件的代码，直接绑定窗体类内的处理过程：

procedure TForm1.ButtonClick(Sender: TObject);
var
  gb: TGroupBox;
begin
  gb := TGroupBox.Create(ListObject);
  gb.Parent := ListObject;
  gb.Height := 38;
  gb.Align := alTop;
  // 直接赋值窗体类的成员过程
  gb.OnClick := GroupBoxClicked;
end;

可选方案（使用独立类，不推荐） #

如果一定要用独立类处理事件，需要修正继承关系并正确实例化类：

type
  // 修正继承关系，继承自TObject而非自身
  TDynamicClickHandler = class(TObject)
  public
    procedure ShowMessage(Sender: TObject);
  end;

implementation

{$R *.dfm}

procedure TDynamicClickHandler.ShowMessage(Sender: TObject);
begin
  TGroupBox(Sender).Caption := 'Clicked';
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
  gb: TGroupBox;
  ClickHandler: TDynamicClickHandler;
begin
  // 必须创建类实例
  ClickHandler := TDynamicClickHandler.Create;
  gb := TGroupBox.Create(ListObject);
  gb.Parent := ListObject;
  gb.Height := 38;
  gb.Align := alTop;
  // 通过实例访问成员方法
  gb.OnClick := ClickHandler.ShowMessage;
  // 注意：需手动管理ClickHandler的生命周期，避免内存泄漏
end;

内容的提问来源于stack exchange，提问作者Dong Vo Thanh