delphi - 无法选择过程作为事件 OnMouseDown 的选项

Question

当我在对象检查器/事件选项卡中单击 OnMouseDown 时，我有一个形状。我想让它执行“SelectMessage”程序，但它没有显示为一个选项。另外，如果我手动输入“SelectMessage”，我会收到错误信息 Property and method Selectmessage are not compatible。

选择消息

procedure TFZone1Mod7.Selectmessage(sender: TObject);
var
  ShapeOrderNo: Integer;
begin
  if TryStrToInt(copy(TShape(Sender).Name,6,MaxInt),ShapeOrderNo) then
    begin
      LookUpMessage(ShapeOrderNo);
    end;
end;

如果我这样做

procedure TFZone1Mod7.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   selectmessage(sender);
end;

然后就可以了。但如果可以的话，更容易从事件中选择。谢谢

Answer 1

OnMouseEvent 的事件处理程序必须具有以下形式的签名:

procedure (Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer) of object;

该组件将调用您的事件处理程序并传递所有这些参数，并且您的事件处理程序必须是预期的形式。

你无法控制这个。该组件的事件处理程序具有预先确定的硬编码形式。您只需适应即可。您当前的解决方案是正确的。

话虽如此，SelectMessage 只能在传递给 TShape 时起作用。所以以这种方式声明函数:

procedure TFZone1Mod7.SelectMessage(Shape: TShape);
var
  ShapeOrderNo: Integer;
begin
  if TryStrToInt(copy(Shape.Name,6,MaxInt), ShapeOrderNo) then
    LookUpMessage(ShapeOrderNo);
end;

然后这样调用它:

procedure TFZone1Mod7.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SelectMessage(Sender as TShape);
end;