笑 笑煞天 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-25 #1 如何实现用户在程序外部单击或者双击鼠标中键边谈出程序的主界面？<br>使得鼠标中键的单击双击变成了一个全局热键？<br>有代码更佳。
F ff_ff Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-25 #2 WM_MBUTTONDBLCLK 双击中键<br>WM_MBUTTONDOWN 按下中键<br>WM_MBUTTONUP 释放中键
笑 笑煞天 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-25 #4 具体一点可以吗?说实话这些消息名称我也查到了,可是不会用.<br>希望给出具体的使用方法,谢谢.
F ff_ff Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-25 #5 兄弟,我也是新手,只是皮毛,还要楼下高手解答吧.<br>我的问题,帮看看,谢谢,顶一下也十分感激<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=3359634
兄弟,我也是新手,只是皮毛,还要楼下高手解答吧.<br>我的问题,帮看看,谢谢,顶一下也十分感激<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=3359634
笑 笑煞天 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-06 #7 我尝试不使用WH_MOUSE,而使用WH_JOURNALRECORD来监听鼠标的动作，代码如下：<br>function MouseHook(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;<br>var<br> mouseevent:EVENTMSG;<br>begin<br> if iCode = HC_ACTION then<br> begin<br> mouseevent:=pEventMSG(lParam)^;<br> if mouseevent.message=WM_MBUTTONUP then 我的事件处理函数;<br> end;<br> Result:= CallNextHookEx(MouseHandle,iCode,wParam,lParam);<br>end;<br><br>可以实现监听并且响应我的事件处理函数，可是运行后马上或者隔一段时间过后鼠标左键就不能进行选取和点击了，而且键盘按键也失灵了，这是为什么？我并没有对鼠标和键盘进行操作阿。
我尝试不使用WH_MOUSE,而使用WH_JOURNALRECORD来监听鼠标的动作，代码如下：<br>function MouseHook(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;<br>var<br> mouseevent:EVENTMSG;<br>begin<br> if iCode = HC_ACTION then<br> begin<br> mouseevent:=pEventMSG(lParam)^;<br> if mouseevent.message=WM_MBUTTONUP then 我的事件处理函数;<br> end;<br> Result:= CallNextHookEx(MouseHandle,iCode,wParam,lParam);<br>end;<br><br>可以实现监听并且响应我的事件处理函数，可是运行后马上或者隔一段时间过后鼠标左键就不能进行选取和点击了，而且键盘按键也失灵了，这是为什么？我并没有对鼠标和键盘进行操作阿。
全 全文检索 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-16 #8 单击好说<br>if GetAsyncKeyState(VK_LButton)<>0 then showmessage('左键按下');<br><br>双击就不知道了，用计时器判断吧，在一秒内点两下就是双击了
单击好说<br>if GetAsyncKeyState(VK_LButton)<>0 then showmessage('左键按下');<br><br>双击就不知道了，用计时器判断吧，在一秒内点两下就是双击了
