传递函数而不是调用它(Delphi)

Question

所以我在Delphi中有一个表单

TFrmMainForm = class(TForm, IFrmMainFormInterface)
  public
    procedure Display(Sender:TObject); 
end;

界面是

IFrmMainFormInterface = interface
  procedure Display(Sender:TObject);
end;

另一堂课

TMainFormViewModel = class
    strict private
      fTimer : TTimer;
      function GetOnTimer : TNotifyEvent;
      procedure SetOnTimer(timerEvent : TNotifyEvent);
    public
      property OnTimer : TNotifyEvent read GetOnTimer write SetOnTimer;
end;

implementation

function TMainFormViewModel.GetOnTimer : TNotifyEvent;
begin
    Result := fTimer.OnTimer;
end;

procedure TMainFormViewModel.SetOnTimer(timerEvent : TNotifyEvent);
begin
    fTimer.OnTimer := timerEvent;
end;

我有一个Form MainForm的实例和视图模型类MainFormViewModel

我想试试

MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display

问题是这给我一个错误信息

实际参数不够

我相信这是因为delphi试图调用显示功能而不是将其分配给OnTimer事件.我不知道如何解决这个问题,我尝试使用@运算符但没有成功.

编辑

我应该补充一点,MainForm在这个函数中被声明为

procedure Initialise<T:Class, IFrmMainFormInterface>(MainForm : T);

---

procedure TController.Initialise<T>(MainForm : T);
begin
    MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display ;
end;

Answer 1

MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display;

问题是您无法在此上下文中使用接口的方法.该OnTimer事件是一种of object方法类型.它必须是对象或记录的方法.