关于鼠标单击事件

Question

想实现这个功能
比如有个窗体
这个窗体活动时只能操作当前窗体的东西
当鼠标在窗体范围以外的地方单击时
就弹出消息给出提示什么的
现在关键是怎么判断单击的时候光标位置没在这个窗体上
不知道该怎么实现
请各位说说啊
多谢了

Answer 1

这个可以用hook来完成啊，相当于锁定鼠标在窗体的矩形区域内，这样你的鼠标就不用出界了。
具体你要什么效果，我还不是很清楚哦。
鼠标hook，码很多的哦，搜索一下，研究一下应该可以的

Answer 2

用这个函数即可达到你的要求：PtInRect(矩形，坐标点)。相关代码自己在网上找吧，必定你给的分太少，不可能给你写完整的代码。

Answer 3

showmodel不能响应单击其他地方时候弹出提示事件

Answer 4

不要锁定，我就是想让鼠标在窗体范围以外点击的时候能响应ShowMessage之类

Answer 5

对于这个问题，首先你要获知你点击的窗体以外，当然要先用hook获取当前鼠标位置，在窗体之内的放行，窗体之外的showmessage，如何判断呢？我想可以先获取此时窗体册坐标就ok了。
实现肯定是可以的，加油！

Answer 6

在鼠标单击事件里添加如下代码：（x,y之不理//鼠标位置）
var   
      r:TRect; //定义一个矩形区域  
      p:TPoint;  //定义一个点 
  begin   
      p:=Point(x,y);   
      r:=Rect(0,0,19123,4898)   
      if   PtInRect(r,p)   then  //判断p 是否在r这个区域内 
            ShowMessage('在里面')
      else 
            showmessage('在外面');   
  end;  

Answer 7

请mwy654321前往领分：
http://topic.csdn.net/u/20080413/14/e470a307-9394-444a-a307-14bdf0c69c63.html之所以献分，是因为我想知道，如果不用全局鼠标钩子，该怎么实现