感知鼠标移入移出组件
虽然从D7开始,给许多组件增加了OnEnter与OnExit事件,但对于大多数组件,要感知鼠标移入移出组件仍是一件不容易的事情。下面的方法就是用于解决这个问题。
(对一般组件有效,对Form、MainMenu等无效)
private
{ Private declarations }
//定义两个过程:
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLe...[ 查看全文 ]