Delphi：单击控件时如何调用方法？

Question

我有一个方法：

procedure Frob(Sender: TObject);

当我点击一个菜单项时我想调用它。

这个方法是通过一个界面来找我的：

animal: IAnimal;

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

问题围绕着为菜单项（即控件）的OnClick 事件处理程序分配什么：

var
   animal: IAnimal;
   ...
begin
   ...
   menuItem := TMenuItem.Create(FileMenu)
   menuItem.Caption := 'Click me!';
   menuItem.OnClick :=  <-------- what to do
   ...
end;

显而易见的选择，my first attempt, and the wrong answer is：

   menuItem.OnClick := animal.Frob;

那么当用户点击控件时如何调用方法？

另见

• Why doesn't it work?

Answer 1

让你的任何对象将动物保存在一个私有字段中，然后设置一个调用它的方法。像这样：

procedure TMyClass.AnimalFrob(Sender: TObject);
begin
   FAnimal.Frob(sender);
end;

那么解决方法就变得简单了：

menuItem.OnClick := self.AnimalFrob;

Answer 2

另一种稍微复杂一点的方法是在 TMenuItem 的 Tag 属性中存储对 IAnimal 的引用。

这可能是您建议的 TList 中 IAnimal 的索引：

if Sender is TMenuItem then
  IAnimal(FAnimals[TMenuItem(Sender).Tag]).Frob;

或者您可以将接口转换为整数。

MenuItem.Tag := Integer(AnAnimal);

然后在事件处理程序中转换回 IAnimal：

if Sender is TMenuItem then
  IAnimal(TMenuItem(Sender)).Frob;

这适用于对象引用，由于引用计数，接口可能需要小心。

请注意，Delphi 7 在 Classes.pas 中也有一个 TInterfaceList

Answer 3

我知道您已将问题标记为已回答，但这里有一些其他建议：

  type
    IClicker = Interface
      function GetOnClickProc : TNotifyEvent;
    End;

  type
    TBlob = class( TInterfacedObject, IClicker )
      procedure OnClick( Sender : TObject );
      function GetOnClickProc : TNotifyEvent;
    end;

{ TBlob }

function TBlob.GetOnClickProc : TNotifyEvent;
begin
  Result := Self.OnClick;
end;

procedure TBlob.OnClick(Sender: TObject);
begin
  MessageDlg('Clicked !', mtWarning, [mbOK], 0);
end;

{ MyForm }
  var
    clicker : IClicker;

  begin
    ...
    menuItem.OnClick := clicker.GetOnClickProc;
  end;

当然，你必须注意“点击器”对象的生命周期...

如果您可以将对象作为对象（而不仅仅是作为接口）来操作，请尝试添加一个公共子类：

type
  TClicker = class
    procedure OnClick( Sender : TObject ); virtual;
  end;

var
  lClicker : TClicker;
...
menuItem.OnClick := lClicker.OnClick;

我也赞同 Cosmin Prund 的评论：制作一个专门的 TMenuItem 子类。