我给Speedbutton控件设置了弹出菜单，我想改为点击此控件弹出菜单，而不是在控件上按鼠标右键产生？该如何实现？

Question

我给Speedbutton控件设置了弹出菜单，我想改为点击此控件弹出菜单，而不是在控件上按鼠标右键产生？就是想把点击事件转为鼠标右键动作，并且禁止鼠标右键弹出！该如何实现？

Answer 1

不要设置弹出菜单，在OnMouseDown里调用PopupMenu.Popup(...

Answer 2

同意楼上
然后还要在onmousedown里面判断，如果是右键，就不干活

Answer 3

写在onclick事件里面不是也可以吗？！！PopupMenu.Popup(x:integer,y:integer）？？？

Answer 4

晕，修改TSPEEDBUTTON的代码，在ONCLICK事件中再调用一个方法就是了，根本不要判断左键还是右键的。