如何处理在ONCLICK事件中鼠标右击事件！

Question

在ONCLICK事件中，如何判断是鼠标是右击还是左击！用消息如何处理。。谢谢了

Answer 1

不是有 OnMouseDown/up 麼？

Answer 2

ONCLICK好象只响应鼠标左键呀。
不过好象可以捕捉到鼠标操作的消息，具体怎么做，不会

Answer 3

对。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
button就是用来判断是左键还是右键的

Answer 4

WM_RBUTTONDOWN
WM_LBUTTONDOWN
两个消息

Answer 5

或者如咖啡所说
type TMouseButton = (mbLeft, mbRight, mbMiddle);procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button ＝ mbleft{mbright,mbmiddle} then ........
end;

Answer 6

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if button=mbright then
   showmessage('right click!');
 if button=mbleft then
    showmessage('left click!');
end;

Answer 7

to xixuemao(吸血猫)
如何处理系统的消息。。在程序中如何实现。

Answer 8

procedure WMRBUTTONDOWN(var msg: TWMRBUTTONDOWN);message WM_RBUTTONDOWN;

Answer 9

coffee36(咖啡),要点击标题栏才有效果
如果要点击grid 里面要实现楼主的功能，怎么实现？