引子
C++ Builder不愧为Borland公司的优秀产品，用它来开发Windows程序非常快捷高效，但在编程过程中你也会发现它的一些限制性，让你无法实现自己的想法。比如你无法在修改表单的系统菜单；比如使用跟踪栏时，你找不到StartTrack和EndTrack事件，而偏偏你的程序需要这两个事件。Windows API编程中，你就不会有这些麻烦，只需处理一下WM_SYSCOMMAND和WM_HSCROLL(或WM_VSCROLL)消息，就能实现上述功能。Windows API的缺点是编程十分麻烦，太多的时间要耗在细节上面，但它的功能却是最强大的。C++ Builder的VCL在功能上只是它的一个子集，因为VCL是在API的基础上封装的，封装时舍弃了一些不常用到的功能。但是程序员的想象力没有被封装，他们总怀着更大的热情去实现别出心裁的想法，修改系统菜单和给跟踪栏增加StartTrack和EndTrack事件只是其中的小把戏而已。可是VCL并没有这些功能，怎么办？
幸好，Borland公司没有把路堵死，而是留了个后门——允许程序员自己拦截并处理Windows消息，就象API编程一样。于是，办法有了...
方法
拦截Windows消息需要以下几步：
在表单头文件内(如Unit1.h)
1. 在类声明中建立消息映射表，把某条消息的处理权交给自定义的消息处理函数。
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(Windows消息名，TMessage，消息处理函数名)
MESSAGE_HANDLER(...)
END_MESSAGE_MAP（TForm） |
2. 在类声明的private区内声明消息处理函数。
private: // User declarations
void __fastcall 消息处理函数名(TMessage &Message)；
在表单文件内（如Unit1.cpp）
3. 写出消息处理函数，在这里实现你需要的功能。比如
void __fastcall MainForm::OnWMHScroll (TMessage &Message)
{
... // 在此加入你自己的代码
TForm::Dispatch(&Message);
} |
解释
1. 关于TMessage
TMessage是VCL预定义的结构，定义如下：
struct TMessage
{
unsigned int Msg; //消息
int WParam; //字参数
int LParam; //长字参数
int Result; //消息结果
}; |
2. 关于TForm::Dispatch(&Message)
自定义的消息处理函数末尾最好加一句TForm::Dispatch(&Message)，这一句的作用是让消息继续传递下去。如果没有这一句，消息将被完全拦截，VCL类可能由于得不到消息而无法实现正常功能。
情人玫瑰坊
音乐风云
新片速递
神秘测试
都市约会