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

在ONCLICK事件中，如何判断是鼠标是右击还是左击！用消息如何处理。。谢谢了 问题点数：100、回复次数：11Top

1 楼beyondtkl（大龙驹<*好久没来了,兄弟们好吧。*>）回复于 2005-07-25 10:08:17 得分 10

不是有   OnMouseDown/up   麼？Top

2 楼coffee36（咖啡）回复于 2005-07-25 10:08:28 得分 10

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

3 楼Morrel（Morrel）回复于 2005-07-25 10:13:38 得分 10

不是好象分左右键的点击事件吧Top

4 楼coffee36（咖啡）回复于 2005-07-25 10:14:19 得分 10

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

5 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-07-25 10:16:02 得分 10

WM_RBUTTONDOWN  
  WM_LBUTTONDOWN  
  两个消息Top

6 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-07-25 10:19:11 得分 20

或者如咖啡所说  
  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;Top

7 楼lin513（东方求救）回复于 2005-07-25 10:23:10 得分 0

我需要的是再点击鼠标右键时。。触发某一个事件。。  
  不知道该如何实现。。Top

8 楼coffee36（咖啡）回复于 2005-07-25 10:23:49 得分 30

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;Top

9 楼lin513（东方求救）回复于 2005-07-25 10:25:31 得分 0

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

10 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-07-25 12:52:36 得分 0

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

11 楼kciv（浩）回复于 2005-12-01 00:04:04 得分 0

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

相关问题

• 鼠标
• 消息
• formmousedown
• 事件
• tmousebutton
• mbleft
• mbright
• tshiftstate
• 处理
• 实现

• 帖主：lin513
• beyondtkl
• coffee36
• Morrel
• coffee36
• xixuemao
• xixuemao
• coffee36

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载