如何区分WM_LBUTTONDOWN和WM_LBUTTONDBLCLK消息?

WiseNeuro 2005-05-04 09:49:45
我想实现如下效果:
当在窗体的任务栏上双击鼠标左键时显示窗体,当单击鼠标左键时显示一个菜单。像qq那样的效果。消息处理程序如下:
void __fastcall TFormMain::MyNotify(TMessage& Msg)
{
POINT MousePos;

switch(Msg.LParam)
{
case WM_RBUTTONUP:
if (GetCursorPos(&MousePos))
{
PopupMenuSystem->PopupComponent = FormMain;
SetForegroundWindow(Handle);
PopupMenuSystem->Popup(MousePos.x, MousePos.y);
}
else
Show();
break;
case WM_LBUTTONDBLCLK:
Show() ;
break;
case WM_LBUTTONDOWN:
if (GetCursorPos(&MousePos))
{
PopupMenuState->PopupComponent = FormMain;
SetForegroundWindow(Handle);
PopupMenuState->Popup(MousePos.x, MousePos.y);
}
else
Show() ;
break ;

default:
break;
}
TForm::Dispatch(&Msg);


但是,双击鼠标左键时,他也会发送单击消息,弹出菜单。我该怎样区分这两个消息,或如何实现我想要的效果。谢谢。
...全文
272 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
WiseNeuro 2005-05-05
  • 打赏
  • 举报
回复
ok
搞定
zhenyu362 2005-05-05
  • 打赏
  • 举报
回复
哈哈,我觉得只能用计时来做,因为WM_LBUTTONDBLCLK必定是跟在一个WM_LBUTTONDOWN后面,所以我想到的办法是这样:
static bool bDBLCLK=false;
case WM_LBUTTONDBLCLK:
bDBLCLK=true;
Show() ;
break;
case WM_LBUTTONDOWN:
Timer1->Enable=true;

................
TimerProc
{
if(bDBCLK)
{bDBCLK=false;}
else
{ your code here....}
}

把Timer的intervalue设置成1s就够了
tghost333 2005-05-04
  • 打赏
  • 举报
回复
用两个函数分别控制WM_NCLBUTTONDBLCLK和WM_NCLBUTTONLCLK
类似:
void __fastcall Change(TMessage &Message);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_NCLBUTTONDBLCLK, TMessage, Change);
END_MESSAGE_MAP(TForm);
Hook(钩子)并不是一项很难的技术,但对于初学者来说还是一个不小的门槛。为此,我将鼠标Hook做成了一个可视化的控件,通过简单的设置几个属性,就可以截获或跟踪其它应用程序的鼠标动作。**********控件介绍:【属性】1.Blocked: Boolean;确定是截获还是跟踪鼠标动作,True对应截获,False对应跟踪。默认值为False2.HookedExeName: string;指定被Hook的应用程序名称。为空时对所有的应用程序起作用。默认值为空3.Active: Boolean;是否处于Hook状态,只读。4.DllName: string;Mouse钩子的dll名称,默认为MouseHook.dll,只读。5.DLLLoaded: Boolean;MouseHook.dll是否被加载,只读。【方法】1.function Start: Boolean;开始Hook2.procedure Stop;停止Hook【事件】 WM_LBUTTONDBLCLK, WM_LBUTTONDOWN, WM_LBUTTONUP, WM_RBUTTONDBLCLK, WM_RBUTTONDOWN, WM_RBUTTONUP, WM_MBUTTONDBLCLK, WM_MBUTTONDOWN, WM_MBUTTONUP, WM_NCLBUTTONDBLCLK, WM_NCLBUTTONDOWN, WM_NCLBUTTONUP, WM_NCRBUTTONDBLCLK, WM_NCRBUTTONDOWN, WM_NCRBUTTONUP, WM_NCMBUTTONDBLCLK, WM_NCMBUTTONDOWN, WM_NCMBUTTONUP, WM_MOUSEMOVE, WM_MOUSEWHEEL, WM_NCMOUSEMOVE, WM_MOUSEACTIVATE, WM_NCHITTEST, WM_CAPTURECHANGED我处理了如上的鼠标事件,注意其中有几个事件我在测试时发现无法Hook,它们为WM_MBUTTONDBLCLKWM_NCMBUTTONDBLCLKWM_MOUSEACTIVATE,WM_NCHITTEST,WM_CAPTURECHANGED建议:不要将HookedExeName:=''; 和 Blocked:=True; 同时设置**********【使用说明】1.首先安装“鼠标Hook控件”目录下的控件2.必须将mousehook.dll拷贝到你开发的应用程序目录下,或系统目录下,如system32【多说几句】1.我提供了一个名为test.exe的demo,该例子是对notepad.exe进行Hook的,因此,使用前先启动notepad.exe,再点击界面上的“开始”,否则会提示“找不到指定的进程”!2.你可以参考我的控件设计模式来设计自己的Hook控件,如键盘Hook。3.本来想写一个组件包的,其中包括各种Hook控件,以及读写端口的控件,以方便初学者的使用,可是要些论文,以后再说吧。 黄晓斌 hxb_leiyuan2000@163.net QQ:478522325
VB写的摄像头家庭监控 Public Function msgproc(ByVal hwnd As Long, ByVal msg As Long, ByVal wp As Long, ByVal lp As Long) As Long On Error Resume Next Dim a As along, t As toint a.x = lp: LSet t = a Select Case msg Case msghinstance.WM_MOUSEMOVE, msghinstance.WM_LBUTTONDOWN, msghinstance.WM_LBUTTONUP, msghinstance.WM_LBUTTONDBLCLK, _ msghinstance.WM_RBUTTONDOWN, msghinstance.WM_RBUTTONUP, msghinstance.WM_RBUTTONDBLCLK, _ msghinstance.WM_MBUTTONDOWN, msghinstance.WM_MBUTTONUP, msghinstance.WM_MBUTTONDBLCLK, _ msghinstance.WM_NCMOUSEMOVE, msghinstance.WM_NCLBUTTONDOWN, msghinstance.WM_NCLBUTTONUP, msghinstance.WM_NCLBUTTONDBLCLK, _ msghinstance.WM_NCRBUTTONDOWN, msghinstance.WM_NCRBUTTONUP, msghinstance.WM_NCRBUTTONDBLCLK, _ msghinstance.WM_NCMBUTTONDOWN, msghinstance.WM_NCMBUTTONUP, msghinstance.WM_NCMBUTTONDBLCLK, _ msghinstance.WM_HOTKEY msgproc = msghinstance.gotomsgevent(hwnd, msg, wp, t.x, t.y) Case msghinstance.WM_MOVE, msghinstance.WM_SIZE msgproc = msghinstance.gotomsgevent(hwnd, msg, t.x, t.y) Case msghinstance.WM_KEYDOWN, msghinstance.WM_KEYUP, msghinstance.WM_SYSCOMMAND, msghinstance.WM_COMMAND, _ msghinstance.WM_ACTIVATEAPP, msghinstance.WM_NCACTIVATE, msghinstance.WM_QUERYOPEN msgproc = msghinstance.gotomsgevent(hwnd, msg, wp) Case msghinstance.WM_DRAWCLIPBOARD, msghinstance.WM_QUERYENDSESSION msgproc = msghinstance.gotomsgevent(hwnd, msg) Case msghinstance.WM_GETMINMAXINFO Dim MinMax As MINMAXINFO CopyMemory MinMax, ByVal lp, Len(MinMax) msghinstance.MaxSizeX = MinMax.ptMaxSize.x msghinstance.MaxSizeY = MinMax.ptMaxSize.y msghinstance.MaxPositionX = MinMax.ptMaxPosition.x msghinstance.MaxPositionY = MinMax.ptMaxPosition.y msghinstance.MinTrackSizeX = MinMax.ptMinTrackSize.x msghinstance.MinTrackSizeY = MinMax.ptMinTrackSize.y msghinstance.MaxTrackSizeX = MinMax.ptMaxTrackSize.x msghinstance.MaxTrackSizeY = MinMax.ptMaxTrackSize.y msghinstance.gotomsgevent hwnd, msg MinMax.ptMaxSize.x = msghinstance.MaxSizeX MinMax.ptMaxSize.y = msghinstance.MaxSizeY MinMax.ptMaxPosition.x = msghinstance.MaxPositionX MinMax.ptMaxPosition.y = msghinstance.MaxPositionY MinMax.ptMinTrackSize.x = msghinstance.MinTrackSizeX MinMax.ptMinTrackSize.y = msghinstance.MinTrackSizeY MinMax.ptMaxTrackSize.x = msghinstance.MaxTrackSizeX MinMax.ptMaxTrackSize.y = msghinstance.MaxTrackSizeY

1,222

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧