关于捕获VCL没有处理的Windows消息

文章作者 100test 发表时间 2007:09:06 12:48:04
来源 100Test.Com百考试题网

　　对于C Builder的程序员来说，VCL以其灵活、高效的特点令人喜爱。因为VCL是在Windows API的基础上进行了封装，同时舍弃了一些不常用的功能，所以，VCL在功能上是Windows API 的子集。 VCL提供了对大多数Windows消息的处理机制，但是对于没有处理的Windows消息呢，在需要是如何捕获呢？C Builder采用了消息映射标机制，通过消息映射表将特定的Windows消息于代码中的函数联系起来，当窗口捕获到消息时就会调用这个函数。
　　C Builder消息映射表定义形式如下：
　　BEGIN_MESSAGE_MAP
　　MESSAGE_HANDLER( , , )
　　END_MESSAGE_MAP(ClassName)
　　其中：
　　BEGIN_MESSAGE_MAP：消息映射定义起始语句
　　MESSAGE_HANDLER：消息处理定义
　　END_MESSAGE_MAP：消息映射定义结束语句
　　ClassName：是要接受消息的类名
　　message：是要截获的Windows消息
　　message handler：消息处理函数名称
　　message structure：是用于传递给VCL消息的结构名称，此结构里包含有处理消息时所需的全部参数，不同的消息所对应的消息结构是不同的。
　　由于每一个VCL控件（无论是窗体还是按钮）都可以独立的接收Windows消息，并且进行独立的响应，所以一定要注意消息定一种的ClassName参数。
　　现在举例说明消息定义、传递的应用。现在一个窗体FormMain，和2个TperformanceGraph控件（不能响应鼠标事件），现在我要对2个　　TperformanceGraph控件定义鼠标单击事件，对FormMain也重定义鼠标单击事件，过程如下（假定工程文件为Message.bpr，程序文件为　　main.cpp、main.h）：
　　源代码如下：
　　//----main.h--------------------------------------------------------------
　　#ifndef mainH
　　#define mainH
　　//----------------------------------------------------------
　　#include
　　#include
　　#include
　　#include
　　#include "PERFGRAP.h"
　　//-----------------------------------------------------------
　　class TFormMain : public TForm
　　{
　　__published: // IDE-managed Components
　　//----2个标准TperformanceGraph控件
　　TPerformanceGraph *PerformanceGraph1.
　　TPerformanceGraph *PerformanceGraph2.
　　TEdit *Edit2.
　　TEdit *Edit1.
　　void __fastcall FormCreate(TObject *Sender).
　　private: // User declarations
　　//----自定义的消息处理函数，其中MESSAGE可以不写
　　MESSAGE void __fastcall LButtonDown(TMessage &.message).
　　//----用户定义的函数（处理消息，具体使用见.cpp文件）
　　void __fastcall MyWndProc1(TMessage &.message).
　　void __fastcall MyWndProc2(TMessage &.message).
　　//----函数指针，用来保存2个TperformanceGraph控件的消息处理函数的指针
　　TWndMethod OldWndProc1 , OldWndProc2.
　　public: // User declarations
　　__fastcall TFormMain(TComponent* Owner).
　　//----窗体的消息定义
　　BEGIN_MESSAGE_MAP
　　MESSAGE_HANDLER(WM_LBUTTONDOWN , TMessage , LButtonDown)
　　END_MESSAGE_MAP(TForm)
　　}.
　　//---------------------------------------------------------------------------
　　extern PACKAGE TFormMain *FormMain.
　　//---------------------------------------------------------------------------
　　#endif

　　//----main.cpp------------------------------------------------------------
　　#include
　　#pragma hdrstop
　　#include "main.h"
　　//---------------------------------------------------------------------------
　　#pragma package(smart_init)
　　#pragma link "PERFGRAP"
　　#pragma resource "*.dfm"
　　TFormMain *FormMain.
　　//---------------------------------------------------------------------------
　　__fastcall TFormMain::TFormMain(TComponent* Owner)
　　: TForm(Owner)
　　{}
　　//---------------------------------------------------------------------------
　　void __fastcall TFormMain::LButtonDown(TMessage &.message)
　　{
　　//----如果鼠标在窗体内（控件外）被单击，则此事件被激活
　　if(GetAsyncKeyState(VK_LBUTTON) < 0)
　　{
　　Application->MessageBoxA("Form Get Messsge" , "Message" , MB_OK).
　　//----向Edit2发送鼠标消息，则Edit2将产生单击获得焦点的现象
　　SendMessage(FormMain->Edit2->Handle ,
　　message.Msg ,
　　message.WParam ,
　　message.LParam).
　　}
　　}
　　//---------------------------------------------------------------------------
　　void __fastcall TFormMain::FormCreate(TObject *Sender)
　　{
　　//----替换2个TperformanceGraph控件的消息处理函数句柄
　　OldWndProc1 = PerformanceGraph1->WindowProc.
　　OldWndProc2 = PerformanceGraph2->WindowProc.
　　PerformanceGraph1->WindowProc = MyWndProc1.
　　PerformanceGraph2->WindowProc = MyWndProc2.
　　}
　　//---------------------------------------------------------------------------
　　void __fastcall TFormMain::MyWndProc1(TMessage &.message)
　　{
　　if (message.Msg == WM_LBUTTONDOWN)
　　//----如果消息是“鼠标单击消息”，则显示信息
　　ShowMessage("PerformanceGraph1 Get Message ").
　　else
　　//----如果消息是其他消息，则交给控件原来的处理
　　OldWndProc1(message).
　　}　
　　//---------------------------------------------------------------------------
　　void __fastcall TFormMain::MyWndProc2(TMessage &.message)
　　{
　　if (message.Msg == WM_LBUTTONDOWN)
　　ShowMessage("PerformanceGraph 2 get Message").
　　else
　　OldWndProc2(message).
　　}
　　如果在TFormMain::FormCreate（）函数中加入以下两句语句：
　　OldWndProc3 = FormMain->WindowProc.
　　FormMain->WindowProc = MyWndProc3.
　　再添加函数：
　　void __fastcall TFormMain::MyWndProc3(TMessage &.message)
　　{
　　if (message.Msg == WM_LBUTTONDOWN)
　　//----如果消息是“鼠标单击消息”，则显示信息
　　ShowMessage(“FormMain Get the Message ").
　　else
　　//----如果消息是其他消息，则交给控件原来的处理
　　OldWndProc1(message).
　　}
　　则把FormMain的鼠标消息响应函数进行了改装，此时窗体就会截获鼠标消息，而2个TperformanceGraph控件将不会得到消息。这是因为窗体将先于控件得到消息。
　　从上面的例子可以看出：
　　1、 窗体将先于控件得到消息；
　　2、 对于响应某一消息的控件，可以用SendMessage想起发送消息；
　　3、 对于不响应某一消息的控件，可以用重载其WindowProc属性获得你想要的效果。
　　实际上，掌握了利用Windows的消息传递机制才是掌握C Builder的第二阶段，任重而道远。