100分，求一个简便有效的鼠标单击和双击事件的判断方法(100分)

fangyi · 2001-09-12

最好有代码。 这不算复杂的问题吧？ 我属于初学者，但诚心请教，请不要嘲笑我，ok？

小猪 · 2001-09-12

好像有click和dbclick事件吧？

fangyi · 2001-09-12

不是，我的意思是加上判断 比如： procedure TForm1.FormClick(Sender: TObject); begin showmessage('click'); end; procedure TForm1.FormDblClick(Sender: TObject); begin showmessage('dblclick'); end; 这样子一定是不成的，因为，form响应了click之后就不理睬dblclick了。 肯定是需要判断的，但是我不太明白怎么加，加在哪里比较合适。

小猪 · 2001-09-12

你试过吗？真的不行？

fangyi · 2001-09-12

当然，你可以试试看  ：）

sherman · 2001-09-12

form在响应click和dblclick是不一样的，OS定义了在设定的时间间隔内连续两次 鼠标单击作为dblclick处理，不再触发click事件

Kingron · 2001-09-12

在FormMouseDown/up中写代码啊。很简单的，为什么不动脑子？ if ssDouble in ssshift then   ///双击 else   ///单击

fangyi · 2001-09-12

sorry,你给的答案我不是很明白，而且代码有问题 好像需要把ssDouble in ssshift 改成ssDouble in shift 才可以通过的，不是我需要的 效果呀。 你可以解释的详细一点吗？我不是想解决了问题就搞定的，我想知道这种类似问题的解决 办法的思路

Kingron · 2001-09-12

哎，这个shift就表明了鼠标的状态啊。你难道不会看看TShiftState这个集合的帮助么？

CJF · 2001-09-12

上面的就可以了.

feifeich · 2001-09-12

用鼠标在控件上点击一下，单击事件总是会发生，实际上，每次双击鼠标时会先 触发一次单击事件，然后触发一次双击事件，如果你用showmessage显示信息，那 就会阻止双击事件的发生（因为，显示的对话框是模式的，程序出于等待状态）， 你可以看下面这个例子： var   Form1: TForm1;   i: Integer = 1; implementation {$R *.dfm} procedure TForm1.FormClick(Sender: TObject); begin   caption := '单击';   Inc(i);   label1.Caption := IntToStr(i); end; procedure TForm1.FormDblClick(Sender: TObject); begin   caption := '双击';   Inc(i);   label1.Caption := IntToStr(i); end; ------------- 如果在窗口上单击鼠标，你会看到窗口的标题变成了“单击”，label1的显示计数加一； 如果双击，则标题变为“双击”，计数器会加二（单击事件加了一次，双击事件加了一次）。 所以，只要程序不使用模式窗口之类的东西，程序还是会触发双击事件的。

fangyi · 2001-09-12

feifeich, 谢谢，但是按照这样的处理办法的话没有办法解决我的问题 比如：单击windows右下角音量的trayicon 会出来一个小的调节版       双节它会出来一个详细的窗口 类似的应用有很多。我就是要实现这种功能 但是你的简单例子让我明白了一些东西，先给你加上50分可以吗？我的分不多  ：） 再次感谢！

jinnys · 2001-09-12

老兄csdn中也有这样的问题 你看看下面的方法（记得一定要给分噢！） 一、 mousedown事件里面有一参数button吧。 当button = 1的时候是左键   button = 2的时候是右键   button = 3的时候是双键   button = 4的时候是中间的键 连机的话，你可以把SERVER和CLINET结合放到一起。 这样看上去就是点对点连接了。 二、 Virtual Key Code Corresponding key ———————————————————————— VK_LBUTTON Left mouse button VK_RBUTTON Right mouse button VK_MBUTTON Middle mouse button 这个是DELPHI中自定义的按键值老兄你看看也很有用的（特意去找的你可要给我分哦）

jinnys · 2001-09-12

VK_LBUTTON Left mouse button VK_RBUTTON Right mouse button VK_CANCEL Control+Break VK_MBUTTON Middle mouse button VK_BACK Backspace key VK_TAB Tab key VK_CLEAR Clear key VK_RETURN Enter key VK_SHIFT Shift key VK_CONTROL Ctrl key VK_MENU Alt key VK_PAUSE Pause key VK_CAPITAL Caps Lock key VK_KANA Used with IME VK_HANGUL Used with IME VK_JUNJA Used with IME VK_FINAL Used with IME VK_HANJA Used with IME VK_KANJI Used with IME VK_CONVERT Used with IME VK_NONCONVERT Used with IME VK_ACCEPT Used with IME VK_MODECHANGE Used with IME VK_ESCAPE Esc key VK_SPACE Space bar VK_PRIOR Page Up key VK_NEXT Page Down key VK_END End key VK_HOME Home key VK_LEFT Left Arrow key VK_UP Up Arrow key VK_RIGHT Right Arrow key VK_DOWN Down Arrow key VK_SELECT Select key VK_PRINT Print key (keyboard-specific) VK_EXECUTE Execute key VK_SNAPSHOT Print Screen key VK_INSERT Insert key VK_DELETE Delete key VK_HELP Help key VK_LWIN Left Windows key (Microsoft keyboard) VK_RWIN Right Windows key (Microsoft keyboard) VK_APPS Applications key (Microsoft keyboard) VK_NUMPAD0 0 key (numeric keypad) VK_NUMPAD1 1 key (numeric keypad) VK_NUMPAD2 2 key (numeric keypad) VK_NUMPAD3 3 key (numeric keypad) VK_NUMPAD4 4 key (numeric keypad) VK_NUMPAD5 5 key (numeric keypad) VK_NUMPAD6 6 key (numeric keypad) VK_NUMPAD7 7 key (numeric keypad) VK_NUMPAD8 8 key (numeric keypad) VK_NUMPAD9 9 key (numeric keypad) VK_MULTIPLY Multiply key (numeric keypad) VK_ADD Add key (numeric keypad) VK_SEPARATOR Separator key (numeric keypad) VK_SUBTRACT Subtract key (numeric keypad) VK_DECIMAL Decimal key (numeric keypad) VK_DIVIDE Divide key (numeric keypad) VK_F1 F1 key VK_F2 F2 key VK_F3 F3 key VK_F4 F4 key VK_F5 F5 key VK_F6 F6 key VK_F7 F7 key VK_F8 F8 key VK_F9 F9 key VK_F10 F10 key VK_F11 F11 key VK_F12 F12 key VK_F13 F13 key VK_F14 F14 key VK_F15 F15 key VK_F16 F16 key VK_F17 F17 key VK_F18 F18 key VK_F19 F19 key VK_F20 F20 key VK_F21 F21 key VK_F22 F22 key VK_F23 F23 key VK_F24 F24 key VK_NUMLOCK Num Lock key VK_SCROLL Scroll Lock key VK_LSHIFT Left Shift key (only used with GetAsyncKeyState and GetKeyState) VK_RSHIFT Right Shift key  (only used with GetAsyncKeyState and GetKeyState) VK_LCONTROL Left Ctrl key  (only used with GetAsyncKeyState and GetKeyState) VK_RCONTROL Right Ctrl key  (only used with GetAsyncKeyState and GetKeyState) VK_LMENU Left Alt key  (only used with GetAsyncKeyState and GetKeyState) VK_RMENU Right Alt key  (only used with GetAsyncKeyState and GetKeyState) VK_PROCESSKEY Process key VK_ATTN Attn key VK_CRSEL CrSel key VK_EXSEL ExSel key VK_EREOF Erase EOF key VK_PLAY Play key VK_ZOOM Zoom key VK_NONAME Reserved for future use VK_PA1 PA1 key VK_OEM_CLEAR Clear key 在delphi 中就有啊

fangyi · 2001-09-12

我还需要去试试看你的方法，找到解决办法了一定给分的

antic_ant · 2001-09-12

WM_LBUTTONDOWN                         //按下鼠标左键   WM_LBUTTONUP                          //释放鼠标左键   WM_LBUTTONDBLCLK                      //双击鼠标左键   WM_RBUTTONDOWN                        //按下鼠标右键   WM_RBUTTONUP                         //释放鼠标右键   WM_RBUTTONDBLCLK                    //双击鼠标右键   WM_MBUTTONDOWN                      //按下鼠标中键   WM_MBUTTONUP                        //释放鼠标中键   WM_MBUTTONDBLCLK                      //双击鼠标中键   截获其中的某个消息处理就行了

coolbaby · 2001-09-12

楼上的，可以

NoSwing · 2001-09-12

也许可以重新实现控件对于消息的处理函数。

feifeich · 2001-09-12

其实很多时候都有简单的解决方法，看上去不起眼，实际效果却不错。 你用鼠标点击windows的音量图标，细心的你也许已经发现，当你双击 它时很快就弹出了音量控制窗口，而单击时却要等一小会才会出现音量 调节杆，如果你用过MSN，它也是这样的。这不正提醒我们，它在单击之后 并没有马上执行，而是调用了一个延时过程。于是我这么实现你的要求： 使用timer组件，单击后激活它，双击关闭它，timer事件执行完也关闭自己。 下面是简单代码（应该不用贴出来的吧：） 我把timer的间隔设为500(半秒)了，你可以更加需要调节的吧。 type   TForm1 = class(TForm)     Timer1: TTimer;     procedure Timer1Timer(Sender: TObject);     procedure FormClick(Sender: TObject);     procedure FormDblClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin   timer1.Enabled := false;   showmessage('单击'); end; procedure TForm1.FormClick(Sender: TObject); begin   timer1.Enabled := false;   timer1.Enabled := true; end; procedure TForm1.FormDblClick(Sender: TObject); begin   timer1.Enabled := false;   showmessage('双击'); end; end.

fangyi · 2001-09-12

feifeich,给分啦！！ 非常感谢，就是这个结果。道理我也明白了。 至于其它的众位高手，你们的帮助我不会忘记的，只是，我的分数不多了，我又是初学 delphi很难在这里挣分啦，吝啬一点请原谅！   ：）

100分，求一个简便有效的鼠标单击和双击事件的判断方法(100分)

fangyi

Unregistered / Unconfirmed

小猪

Unregistered / Unconfirmed

fangyi

Unregistered / Unconfirmed

小猪

Unregistered / Unconfirmed

fangyi

Unregistered / Unconfirmed

sherman

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

fangyi

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

CJF

Unregistered / Unconfirmed

feifeich

Unregistered / Unconfirmed

fangyi

Unregistered / Unconfirmed

jinnys

Unregistered / Unconfirmed

jinnys

Unregistered / Unconfirmed

fangyi

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

NoSwing

Unregistered / Unconfirmed

feifeich

Unregistered / Unconfirmed

fangyi

Unregistered / Unconfirmed

Similar threads