Question

delphi如何实现鼠标右键事件变为鼠标左键事件,

要实现点击右键也是执行单击左键的效果.谢谢

Answer 1

最简单的办法可以在控件的onContextPopup事件中写。
例如可以在button1的onContextPopup事件中写
Button1Click(nil);
这样在button1上点右键的时候就实现了点击左键的效果

复杂一点的可以利用消息机制，获取消息

Answer 2

截获应用程序的消息，然后将右键消息处理成左键消息就可以了，你如果一个应用程序里有很多窗口的话，只需要做一步就可以了！

实现方式：
1.编写一个OnMessage用于处理鼠标右键消息，过程原型如下：
TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of object;
2.用编写好的OnMessage代替application.OnMessage就可以了