-
c语言入门之关于捕获VCL没有处理的Windows消息
对于C++ Builder的程序员来说,VCL以其灵活、高效的特点令人喜爱。因为VCL是在Windows API的基础上进行了封装,同时舍弃了一些不常用的功能,所以,VCL在功能上是Windows API 的子集。VCL提供了对大多数Windows消息的处理机制,但是对于没有处理的Windows消息呢,在需要是如何捕获呢?C++ Builder采用了消息映射标机制,通过消息映射表将特定的Windows消息于代码中的函数联系起来,当窗口捕获到消息时就会调用这个函数。
C++ Builder消息映射表定义形式如下:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(<message> , <message structure> , <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 <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#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 <vcl.h>
#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的第二阶段,任重而道远。
C++ Builder消息映射表定义形式如下:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(<message> , <message structure> , <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 <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#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 <vcl.h>
#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的第二阶段,任重而道远。
最新更新
Objective-C语法之代码块(block)的使用
VB.NET eBook
Add-in and Automation Development In VB.NET 2003 (F
Add-in and Automation Development In VB.NET 2003 (8
Add-in and Automation Development in VB.NET 2003 (6
Add-in and Automation Development In VB.NET 2003 (5
AddIn Automation Development In VB.NET 2003 (4)
AddIn And Automation Development In VB.NET 2003 (2)
Addin and Automation Development In VB.NET 2003 (3)
AddIn And Automation Development In VB.NET 2003 (1)
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
武装你的WEBAPI-OData入门
武装你的WEBAPI-OData便捷查询
武装你的WEBAPI-OData分页查询
武装你的WEBAPI-OData资源更新Delta
5. 武装你的WEBAPI-OData使用Endpoint 05-09
武装你的WEBAPI-OData之API版本管理
武装你的WEBAPI-OData常见问题
武装你的WEBAPI-OData聚合查询
OData WebAPI实践-OData与EDM
OData WebAPI实践-Non-EDM模式