副标题#e#
—- Borland C++ Builder的API后门
—- 引子
—- C++ Builder不愧为Borland公司的优秀产物，用它来开拓Windows措施很是快捷高效，但在编程进程中你也会发明它的一些限制性，让你无法实现本身的想法。好比你无法在修改表单的系统菜单；好比利用跟踪栏时，你找不到StartTrack和EndTrack事件，而偏偏你的措施需要这两个事件。Windows API编程中，你就不会有这些贫苦，只需处理惩罚一下WM_SYSCOMMAND和WM_HSCROLL(或WM_VSCROLL)动静，就能实现上述成果。Windows API的缺点是编程十分贫苦，太多的时间要耗在细节上面，但它的成果却是最强大的。C++ Builder的VCL在成果上只是它的一个子集，因为VCL是在API的基本上封装的，封装时舍弃了一些不常用到的成果。可是措施员的想象力没有被封装，他们总怀着更大的热情去实现自出机杼的想法，修改系统菜单和给跟踪栏增加StartTrack和ndTrack事件只是个中的小花招罢了。但是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)；
#p#副标题#e#
在表单文件内（如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类大概由于得不到动静而无法实现正常成果。
—- 实例一：修改系统菜单
—- 有一些措施，主窗口很小，菜单也没有，假如想插手关于或配置对话框，最好的步伐是拿系统菜单开刀。Windows API编程中，修改系统菜单与实现其他成果一样，不太容易，也不会太难。但在C++ Builder中，表单类(TForm)没有提供有干系统菜单的任何属性与要领，实现其他成果易如反掌，而修改系统菜单好像难于上青天。
—- 还好，Borland公司答允措施员自已处理惩罚Window动静，于是时机来了！
一、用Window API函数修改系统菜单
假定表单名为MainForm，配置MainForm::OnCreate()函数：
1. 用GetSystemMenu(MainForm->Handle,false)取得系统菜单句柄；
2. 用AppendMenu,DeleteMenu,ModifyMenu函数修改系统菜单，把新的ID号赋于自界说的菜单项。
这时运行措施，可以看到系统菜单也被修改，但自界说的菜单项却不能被响应。
二、拦截WM_SYSCOMMAND动静以响应自界说的菜单项
在表单头文件内(如Unit1.h)
1. 在表单类界说末端插手动静响应表，取得WM_SYSCOMMAND动静的处理惩罚权
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND,TMessage,OnWMSysCommand)
END_MESSAGE_MAP(TForm)
2. 在表单类界说的private区内插手动静处理惩罚函数声明
private: // User declarations
void __fastcall OnWMSysCommand(TMessage& Message);
在表单文件内(如Unit1.h)
3. 写出动静响应函数
void __fastcall TForm1::OnWMSysCommand(TMessage& Message)
{
if(Message.WParam==ID_SysMenu_MyItem)
{
// Your Code Here, Do Something
}
TForm::Dispatch(&Message);
}
三、完整措施示例
实例二：给跟踪栏增加OnStartTrack和OnEndTrack事件
当跟踪栏用于进度节制时，OnStartTrack和OnEndTrack很大概是你需要的事件。好比在节制多媒体播放进度的场所，当用户移动滑块时，你需要OnStartTrack事件让播放遏制，需要OnEndTrack事件定位新的播放位置。但Borland公司没有提供这两个事件，我等编程喜好者只好自力重生，打拦截Windows动静的主意了。
一、拦截WM_HSCROLL动静，给跟踪栏增加OnStartTrack和OnEndTrack事件
在表单头文件内（如Unit.h）
1. 在表单类界说末端插手动静响应表，把WM_HSCROLL动静处理惩罚权交给OnWMHScroll函数。
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_HSCROLL,TMessage,OnWMHScroll)
END_MESSAGE_MAP(TForm)
2. 在表单类界说的private区内插手OnWMHScroll函数声明。
private: // User declarations
void __fastcall OnWMHScroll(TMessage &Message);
3. 在表单类界说的private区内插手StartTrack和EndTrack函数声明。
private: // User declarations
void __fastcall TrackBar1StartTrack(TObject *Sender);
void __fastcall TrackBar1EndTrack(TObject *Sender);
在表单文件内（如Unit.cpp）
4. 写出OnWMHScroll函数，使它能按照动静参数挪用StartTrack和EndTrack函数，在实际意义上发生OnStartTrack和OnEndTrack事件。
5. 写出StartTrack和EndTrack函数。
假如是垂直跟踪栏，把上面的WM_HSCROLL改为WM_VSCROLL即可。
二、完整措施示例
尾声
#p#分页标题#e#
Borland C++ Builder编程中，拦截Windows动静是一项高级编程技能，能让你只管挖掘Windows的潜力，尤其让曾用API编程的措施员感想心慰。拦截Windows动静是API恣意发挥的舞台，当VCL不能为你做什么时，请想起底层的API。
