教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

   很喜欢一些软件的按钮：鼠标移进去，就会呈现某种效果（如文字变色、突起显示等等），移出以 
后效果就消失。但是自己动手的时候，却发现不像自己想象的那样简单。其中鼠标移入的效果很容 
易实现，使用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; 
  } 
}