Delphi中如何实现函数返回过程类型绑定动态按钮事件？

通常情况下，函数返回字符串等常规数据类型的写法如下：

Function getInitials(sName,sSurname:string) :string
Begin
  Result := sName [1]+sSurname [1]
End

对应调用方式：

var s: string;

s := getInitials (John, Wick);
// s 最终值为 'JW'

常规场景下直接通过:=给Result赋值即可返回结果，但给动态创建的按钮绑定自定义CUSTOM OnClick事件时，很容易写出不符合语法的错误代码：

Var
  BtnNEW: TButton;

Procedure MakeButtonInRuntime;
Const 
  sLine = 'formColor=Red'
Begin
  BtnNEW := TButton.Create(frmHome);
  With btnNew DO
  Begin
    Name := btnRed;
    OnClick := MakeOnClick(sLine);
  End
End

Function MakeOnClick(doThis: string) : procedure;
Begin
  Result := (frmHome.color := clRed);
End;

上述代码预期逻辑是运行时动态创建TButton控件，根据传入的sLine参数绑定自定义点击逻辑，示例中点击按钮后将窗体颜色改为红色，但代码无法通过编译，核心原因是OnClick对应的事件类型是绑定对象的方法指针，不属于常规数据类型，不能用普通函数返回过程的方式直接赋值。

正确实现方式 #

Delphi中按钮的OnClick事件是TNotifyEvent类型，标准签名为procedure(Sender: TObject) of object，必须赋值匹配该签名的方法指针，常用实现分两种场景：

方案1：匿名方法（Delphi 2009及以上版本推荐） #

高版本Delphi支持匿名方法，可直接在创建按钮时绑定闭包，自动捕获上下文参数，写法最简洁：

Var
  BtnNEW: TButton;

Procedure MakeButtonInRuntime;
Const 
  sLine = 'formColor=Red'
Begin
  BtnNEW := TButton.Create(frmHome);
  BtnNEW.Parent := frmHome; // 必须指定父容器，否则按钮不会显示在界面上
  With BtnNEW DO
  Begin
    Name := 'btnRed'; // 控件名是字符串，需要加单引号
    // 赋值签名匹配的匿名过程作为点击事件
    OnClick := procedure(Sender: TObject)
    begin
      // 此处可直接解析sLine参数执行对应逻辑
      if Pos('formColor=Red', sLine) > 0 then
        frmHome.Color := clRed;
    end;
  End
End;

方案2：通用事件方法+控件存参（兼容所有Delphi版本） #

如果使用不支持匿名方法的老版本Delphi，可以提前写好通用的事件处理方法，把需要的参数存在按钮自身的属性中，点击时从Sender对象取参执行逻辑：

Var
  BtnNEW: TButton;

// 提前定义符合TNotifyEvent签名的通用点击处理方法
procedure TfrmHome.CustomBtnClick(Sender: TObject);
var
  cmdStr: string;
begin
  // Sender就是当前被点击的按钮，直接从中取提前存入的参数
  cmdStr := TButton(Sender).Hint;
  if cmdStr = 'formColor=Red' then
    Self.Color := clRed;
end;

Procedure MakeButtonInRuntime;
Const 
  sLine = 'formColor=Red'
Begin
  BtnNEW := TButton.Create(frmHome);
  BtnNEW.Parent := frmHome;
  With BtnNEW DO
  Begin
    Name := 'btnRed';
    Hint := sLine; // 把自定义参数存在按钮的Hint属性中，也可用Tag做整数参数映射
    OnClick := CustomBtnClick; // 直接绑定通用处理方法
  End
End;

原代码的其他语法错误 #

• 事件返回类型错误：普通无参procedure类型和TNotifyEvent签名不匹配，且缺少of object约束，无法赋值给OnClick属性
• 返回值赋值逻辑错误：不能把单条执行语句frmHome.color := clRed直接赋值给过程类型变量
• 控件属性赋值错误：Name := btnRed中btnRed未加单引号，会被编译器识别为未定义变量；未指定按钮的Parent属性，创建后控件不会在窗体上渲染。

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