拦截鼠标单击事件

Question

有一个TForm 上面有些控件.
要求实现当鼠标单击在这个Form上的时候(包括单击Form上的控件上和Form的标题栏上)运行一个过程,怎么实现??注意,包括标题栏.
简单的说一下思路就好.

Answer 1

在delphi左下角属性的边上有个“事件”的选项卡，点进去以后有你要的东西，比如：onclick(单击事件）等，双击进去，编写代码即可。希望我的答复另您满意。

Answer 2

Application.OnMessage
   case WM_LBUTTONDOWN,WM_NCLBUTTONDOWN:
      if(GetAncestor(MSG.HWMD,GA_ROOT)=MyForm.Handle)
          dosth;

Answer 3

在每个控件clicked的事件里写通用性不是很好，可以用截获消息的办法，也可以用actionlist加过程的方法。

Answer 4

我的目的是做一个透明的的控件,暂时称为 TA 吧.
当一个TForm上,放有一个 TA控件 并且 TA.Active := True 的时候,只要单击窗口上的任何区域都会 先运行该控件的 TA.OnClick 过程, 后面再接着运行相关的过程.比如单击的是窗口上的一个 Button 则运行 TA.OnClick, Button.OnClick..TA怎么实现???