动态创建TImage绑定OnMouseDown事件报ClickEvent参数数量错误

动态创建TImage控件实现拖拽交互功能时，将编写好的拖拽处理过程绑定到TImage实例对应事件的环节，编译器抛出如下错误：

Error: Wrong number of parameters specified for call to "ClickEvent"

涉及代码如下，预期是将ClickEvent过程赋值绑定到控件事件上，而非直接调用该过程，但赋值操作触发上述报错，需要排查原因和修复方案。

拖拽逻辑实现代码 #

procedure ClickEvent(Sender:TObject; Button:TMouseButton; Shift:TShiftstate; X,Y:Integer);
begin
  if Button = mbLeft then TControl(Sender).BeginDrag(False);
end; 

动态创建TImage的代码 #

procedure SpawnCard(Ort:TWinControl; sKarte:TKarteClass; Liste: Array of TKarte; BilderListe:Array of TCustomImage);
var
  Bild:TImage;
begin
  Liste[High(Liste)]:=sKarte.Create();

  Bild:=TImage.Create(Combat);
  with Bild do
  begin
    OnMouseDown:=ClickEvent;
    Parent:=Ort;
    Top:=1;
    Left:=200*length(BilderListe);
    width:=200;
    height:=300;
    Proportional:=True;
    Stretch:=True;
    Picture.LoadFromFile(Liste[High(Liste)].PicPath);
  end;

  BilderListe[High(BilderListe)]:=Bild;

end; 

核心问题是你定义的ClickEvent是独立全局过程，不符合VCL/LCL事件的签名要求。
OnMouseDown事件的类型为TMouseEvent，定义是procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;，末尾的of object约束要求绑定的过程必须是类的成员方法——这类方法会隐式携带对象实例的Self指针，普通独立过程没有这个隐式参数，编译器会把OnMouseDown:=ClickEvent识别为直接调用ClickEvent函数传值，自然报参数数量不匹配的错误。
另外代码里参数类型写的是TShiftstate，正确类型名是TShiftState，如果开启严格语法检查，这个笔误也会触发编译异常。

二选一即可：

• 方案1：将ClickEvent改为类的成员方法，不要写为独立全局过程。比如放到当前业务逻辑所在的窗体类、工具类中声明和实现：

  // 在类定义段声明
  type
    TMainForm = class(TForm)
      // 原有类成员声明
    private
      procedure ClickEvent(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer);
    end;
  
  // 实现部分逻辑和原有代码一致
  procedure TMainForm.ClickEvent(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer);
  begin
    if Button = mbLeft then TControl(Sender).BeginDrag(False);
  end;
  

  修改后原有OnMouseDown:=ClickEvent的赋值即可正常编译，此时ClickEvent符合of object的约束，匹配事件的类型要求。
• 方案2：如果不想单独定义类成员方法，在支持匿名方法的Delphi 2009+、Free Pascal 3.0+版本中，可以直接在赋值时用匿名方法写事件逻辑：

  // 将原代码中OnMouseDown赋值行替换为如下内容
  OnMouseDown := procedure(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X,Y:Integer)
    begin
      if Button = mbLeft then TControl(Sender).BeginDrag(False);
    end;
  

  这种写法不需要额外定义全局过程，逻辑直接写在创建控件的代码块中，适合短逻辑场景。

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