Delphi：为运行时创建的按钮添加OnClick事件

问题根源 #

TNotifyEvent的标准签名是procedure(Sender: TObject);，而你要调用的AnotherProcedure是带窗体参数的自定义过程，两者签名不匹配，直接赋值就会触发E2010类型不兼容错误。

三种可行解决方案 #

1. 匿名方法包装（Delphi XE2及以上版本） #

这是最简洁的实现方式，用匿名方法适配TNotifyEvent的签名，内部直接调用你的目标过程并传入当前窗体：

// 在CreateTitleBarPanel过程中创建按钮时
var
  btn: TSpeedButton;
begin
  btn := TSpeedButton.Create(AForm);
  btn.Parent := TitleBarPanel;
  // 设置按钮其他属性（位置、图标等）
  btn.OnClick := procedure(Sender: TObject)
  begin
    AnotherProcedure(AForm); // 直接传入当前窗体对象
  end;
end;

2. 辅助类封装（兼容旧版Delphi） #

如果使用Delphi XE2之前的版本，不支持匿名方法，可以创建一个轻量辅助类存储窗体对象，通过类方法中转事件：

// 在单元接口或实现部分定义辅助类
type
  TTitleBtnHelper = class
  private
    FTargetForm: TForm;
  public
    constructor Create(ATargetForm: TForm);
    procedure OnBtnClick(Sender: TObject);
  end;

constructor TTitleBtnHelper.Create(ATargetForm: TForm);
begin
  inherited Create;
  FTargetForm := ATargetForm;
end;

procedure TTitleBtnHelper.OnBtnClick(Sender: TObject);
begin
  AnotherProcedure(FTargetForm);
end;

// 在CreateTitleBarPanel中使用：
var
  btn: TSpeedButton;
  helper: TTitleBtnHelper;
begin
  btn := TSpeedButton.Create(AForm);
  btn.Parent := TitleBarPanel;
  // 设置按钮属性
  helper := TTitleBtnHelper.Create(AForm);
  btn.OnClick := helper.OnBtnClick;
  // 将辅助类对象加入窗体组件列表，避免内存泄漏
  AForm.InsertComponent(helper);
end;

3. Tag属性传递指针 #

利用按钮的Tag属性存储窗体对象指针（需强制类型转换），通过中间事件处理方法取出并调用目标过程：

// 定义中间事件处理方法
procedure TYourUnit.TitleBtnClick(Sender: TObject);
var
  targetForm: TForm;
begin
  targetForm := TForm(NativeInt(TSpeedButton(Sender).Tag));
  AnotherProcedure(targetForm);
end;

// 在CreateTitleBarPanel中使用：
var
  btn: TSpeedButton;
begin
  btn := TSpeedButton.Create(AForm);
  btn.Parent := TitleBarPanel;
  // 设置按钮属性
  btn.Tag := NativeInt(AForm); // 转换为整数类型存储指针
  btn.OnClick := TitleBtnClick;
end;

方案选择建议 #

• 优先使用匿名方法，代码简洁且无需额外内存管理；
• 旧版Delphi优先选择辅助类方案，比Tag属性更安全（避免指针类型错误）；
• Tag属性适合快速临时实现，但需确保Tag未被其他逻辑占用。

内容的提问来源于stack exchange，提问作者Some1Else