如何屏蔽鼠标事件???(20分)

  • 主题发起人 主题发起人 wab
  • 开始时间 开始时间
W

wab

Unregistered / Unconfirmed
GUEST, unregistred user!
我用Mouse_Event()模拟鼠标的移动事件,但同时如果用户按住左键,<br>则移动就变成了Drop事件,如何在我模拟鼠标事件的同时屏蔽用户的操作呢??<br><br><br>
 
还不是很清楚你的意思,<br>最好能贴出程序,<br>如果你想屏蔽鼠标事件且实现的功能比较简单,例如只是为了单纯截获鼠标按键的消息,<br>你可以重新声明这么一个过程:<br>procedure WMXBUTTONDOWN(var Msg:TMessage);message WM_XBUTTONDOWN;<br>然后自己过滤处理就行了。<br>如果要实现的功能比较复杂,则需要用到鼠标钩子。<br><br><br><br><br>
 
To : zswenyun<br>&nbsp; 其实意思很简单,就是在我模拟鼠标移动的同时(不是在自已程序的窗口上移动),<br>屏蔽用户的实际鼠标操作??<br>
 
function BlockInput (fBlockInput : boolean) : DWord; stdcall; external 'user32.DLL'; <br><br>{block input/ blockieren} <br><br>procedure TForm1.Button1Click(Sender: TObject); <br>begin <br>&nbsp;BlockInput(true); <br>end; <br><br>{unblock input / Blockierung aufheben} <br><br>procedure TForm1.Button2Click(Sender: TObject); <br>begin <br>&nbsp;BlockInput(false); <br>end; <br><br>
 
enablewindow(
 
To only you :<br>&nbsp; BlockInput会屏蔽所有的操作,连我模拟的操作也会被屏蔽的,<br>还有啊,你想害我就说一声嘛:<br>&nbsp; &nbsp;在你的例子中,我要是按了Button1, 我还能去按Button2吗??
 

Similar threads

D
回复
0
查看
825
DelphiTeacher的专栏
D
D
回复
0
查看
831
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部