当我在对象检查器/事件选项卡中单击 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;
然后就可以了。但如果可以的话,更容易从事件中选择。 谢谢
最佳答案
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;
关于delphi - 无法选择过程作为事件 OnMouseDown 的选项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13026294/