Delphi：如何将 Click 事件分配给对象的方法？

Question

我有一个菜单项，我正在尝试分配它的 OnClick 事件处理程序：

miFrobGizmo.OnClick := {something};

OnClick 事件处理程序属性与几乎所有其他事件处理程序一样，被定义为 TNotifyEvent 方法类型：

property OnClick: TNotifyEvent 

TNotifyEvent 在哪里：

TNotifyEvent = procedure(Sender: TObject) of object;

我有一个对象，其方法与TNotifyEvent 签名匹配：

TAnimal = class(TObject)
public
   procedure Frob(Sender: TObject);
end;

所以我认为我应该能够采用对象的方法并将其分配给 click 事件处理程序：

var
   Animal: TAnimal;


miFrobGizmo.OnClick := Animal.Frob;

除非我得到错误：

[Error]File.pas(1234): Not enough actual parameters

也许我脑子有屁，但我认为我应该能够做到这一点。

---

我没有提到的一个细节是，我的具有匹配方法的对象正在通过接口公开该方法：

IAnimal = interface
   procedure Frob(Sender: TObject);
end;

TAnimal = class(TInterfacedObject, IAnimal)
public
   procedure Frob(Sender: TObject);
end;

var
   Animal: IAnimal;

miFrobGizmo.OnClick := Animal.Frob;

---

跟进问题

If this won't work, what will?

Answer 1

你不能那样做。它说“对象过程”，而不是“接口过程”。如果您直接使用对象，它将允许您这样做，但由于您不是，它不会认为您正在尝试分配事件处理程序，而是解析器尝试将您的代码视为方法调用。然后它会发现您的方法调用没有任何参数，但该调用需要一个参数，因此它放弃并给您一条错误消息。