OnTAP 事件的运行时分配 Delphi Seattle

Question

我正在使用 Firemonkey 并且 我想在运行时将 OnTap 事件分配给一个对象。

我尝试的代码与我用于 OnClick 事件的代码基本相同：

顶部的标题：

procedure txtHostClick(Sender: TObject);

程序：

procedure TMyForm.txtHostClick(Sender: TObject);
begin
   //do stuff
end;

分配给事件处理程序：

hotspot :=  Tmemo.Create(Highlight_Scrollbox);
hotspot.OnClick := txtHostClick;

所以我尝试将相同的逻辑应用于 OnTap 事件，它给出了以下错误：

[DCC 错误] s3.pas(4338): E2009 不兼容类型：'参数列表不同'

以下是我尝试过的代码示例：

顶部的标题：

procedure txtOnTAPEvent(Sender: TObject; const [Ref] Point: TPointF);

程序：

procedure TMyForm.txtOnTAPEvent(Sender: TObject; const [Ref] Point: TPointF);
begin
   //do stuff
end;

分配给事件处理程序：

hotspot :=  Tmemo.Create(Highlight_Scrollbox);
hotspot.OnTap := txtOnTAPEvent;

我的知识有空白需要填补。

Answer 1

尝试从Point 参数中删除[Ref] 属性：

procedure txtOnTAPEvent(Sender: TObject; const Point: TPointF);

procedure TMyForm.txtOnTAPEvent(Sender: TObject; const Point: TPointF);
begin
    //do stuff
end;

如果您在设计时在对象检查器中双击任何 UI 控件的 OnTap 事件，您将看到 IDE 生成一个不包含 [Ref] 属性的 OnTap 事件处理程序。在 FMX.Types.TTapEvent 的声明中没有 [Ref] 属性的事实进一步强化了这一点：

TTapEvent = procedure(Sender: TObject; const Point: TPointF) of object;