追踪鼠标

Tags: c语言
很喜欢一些软件的按钮:鼠标移进去,就会呈现某种效果(如文字变色、突起显示等等),移出以
后效果就消失。但是自己动手的时候,却发现不像自己想象的那样简单。其中鼠标移入的效果很容
易实现,使用MouseMove事件就可以了,但是移出呢?要知道Windows里并没有鼠标移入移出的消
息呀!(至少我在C++ Builder自带的Windows API里翻了遍也没找着。)以前,我就用了一些取
巧的方法来实现:

  1.比如要让一个按钮实现移入变色功能,我就在按钮本身的MouseMove里写一句代码,让它的颜
色改变,然后在它的容器控件(如Form, Panel等等)的MouseMove里写一句代码,让它的颜色还
原。毋需多言,这样的代码肯定是很烦琐的,特别是要控制的控件相当多的时候。

  2.在每个按钮的MouseMove事件里设置按钮状态。再使用一个定时器,每隔一段较短的时间检测
状态,根据状态设置颜色。这样做的好处是改变颜色的代码段只有一段(在定时器事件里),而不
像第一种方法一样在许多地方改变颜色。但代码依然是很烦琐的,而且还要浪费一个定时器资源。

最重要的是,以上两种方法都由控件外部来控制,这样的话,想做一个实现这种功能的控件是不可
能了。那么,那些第三方控件的这种功能是怎样实现的呢?

一个偶然的机会,我看到了一个具有鼠标感知能力(注:我们把这种可以感知鼠标是否在自己上面
的能力叫做鼠标感知能力。)的控件的源代码。于是就细细研究了起来。

阅读了一大堆令人目眩的代码之后,我发现,它的鼠标感知能力是来自两条消息:
CM_MOUSEENTER和CM_MOUSELEAVE,但是在它的源代码中并没有产生这两个消息的任何语句。在
Window API帮助里又查不到这两条消息。奇怪,难道是微软不想让我们知道有这两个消息?该死
的微软……,等等!我发现CM_这个前缀并不是微软的标准前缀(看来错怪微软了)。CM是……,
对了,是Custom Message的缩写!好,这个消息不是控件编写者自己写的,也不是微软提供的,
那么……。不错,这是Borland提供的一个用户定义消息。其声明在controls.hpp中。好,有了
这两个消息,问题就好解决了。下面是我编写的一个简单的控件,为TSpeedButton增加了
EnterFontColor属性和OnMouseEnter、OnMouseExit两个事件。

//附:TexSpeedButton控件的关键程序段

//exSpeedButton.h
TexSpeedButton::public TSpeedButton
{
  //……………… 
private:
  TColor FEnterFontColor, FOldFontColor;
  TNotifyEvent FOnMouseEnter, FOnMouseExit;

protected:
  virtual void __fastcall WndProc(TMessage &Message);    //重载WndProc方法处理消

 
  virtual void __fastcall MouseEnter(void);              //鼠标感知的处理函数
  virtual void __fastcall MouseExit(void)                //定义成虚以便以后继承

public:
  //………………

__publish:

  __property TColor EnterFontColor = {read = FEnterFontColor, write 
FEnterFontColor, default = clBlue};
  __property TNotifyEvent OnMouseEnter = {read = FOnMouseEnter, write = 
FOnMouseEnter};
  __property TNotifyEvent OnMouseExit  = {read = FOnMouseExit,  write = 
FOnMouseExit};
};

//exSpeedButton.cpp
TexSpeedButton::TexSpeedButton(TComponent *Owner):public TSpeedButton(Owner)
{
  FEnterColor = clBlue;        //移入颜色缺省为蓝色
}

void TexSpeedButton::WndProc(TMessage &Message)
{
  TCustomControl::WndProc(Message);      //调用祖先类的缺省处理(注:这是4.0版的写法, 5.0中TCustomControl的WndProc方法已经被隐藏,只能用TControl::WndProc)
 
  if (Message.Msg == CM_MOUSEENTER)      //处理CM_MOUSEENTER消息
  {
    MouseEnter();
    Repaint();                          //别忘了刷新界面
  }

  if (Message.Msg == CM_MOUSELEAVE)      //处理CM_MOUSELEAVE消息
  {
    MouseEnter();
    Repaint();                          //同样别忘了刷新界面
  }
}

void TexSpeedButton::MouseEnter(void)
{
  if(FOnMouseEnter)      //如果事件处理句柄存在(用户写了相应事件)
  {
    FOnMouseEnter(this);  //执行用户定义的事件
  }
  else                    //否则执行缺省处理
  {
    FOldFontColor = Font->Color;
    Font->Color  = FEnterFontColor;
  }
}

void TexSpeedButton::MouseExit(void)
{
  if(FOnMouseEnter)      //如果事件处理句柄存在(用户写了相应事件)
  {
    FOnMouseEnter(this);  //执行用户定义的事件
  }
  else                    //否则执行缺省处理
  {
    Font->Color  = FOldFontColor;
  }
}

本文链接:http://www.4byte.cn/learning/55255.html