BCB如何拦截消息

C++ Builder拦截消息

---- 拦截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);
}


一、用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即可。

二、完整程序示例

尾声

Borland C++ Builder编程中,拦截Windows消息是一项高级编程技术,能让你尽量挖掘Windows的潜力,尤其让曾用API编程的程序员感到心慰。拦截Windows消息是API尽情发挥的舞台,当VCL不能为你做什么时,请想起底层的API

 

 

---- C++ Builer的VCL提供了对大多数Windows消息的处理机制,这对于一般应用程序是足够了,但VCL也不是无所不包的,对于那些VCL没有处理的Windows消息,在需要时如何进行捕获呢?C++ Builder采用了消息映像表机制,通过消息映像表将特定的Windows消息与代码中的函数联系起来,当窗口捕获到消息时就会调用这个函数,这其实和事件句柄非常相似。

---- C++ Builder消息映像表定义形式如下:

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(< message >,
< message structure >,< message handler >)
……
MESSAGE_HANDLER(< message >,
< message structure >,< message handler >)
END_MESSAGE_MAP(ClassName)

---- ClassName是基础类名,message参数是要捕获的Windows消息,message structure参数用于传递VCL剖析消息后用于传递参数的消息剖析结构名,里面包含处理消息时所需要的全部参数,不同的消息其消息剖析结构是不同的,一般性的消息剖析结构定义如下:
struct Tmessage
{
unsigned int Msg;//Windows消息
long Wparam;
long Lparam;
long Result;
}

---- 这里关键是Result数据成员,它用于设置处理消息后的返回值,程序可以根据不同的返回值进行相应的处理。message handler参数是对消息进行处理的函数名称。
---- 俗话说:千言不如一图。下面就用一个例子具体说明一下,让我们来拖动一个无标题的窗口,实现的原理是通过捕获WM_NCHITTEST消息,在鼠标单击窗体的客户区时发送消息,让Windows认为是个窗体的标题栏上。

---- 创建一个新工程,将单元文件保存为mainform.cpp,工程文件保存为nocaption.bpr。首先得创建一个无标题栏的窗体,将Form1的BorderIcons集合设为空,这就删除了窗口的系统菜单、最大化和最小化按钮,将BorderStyle属性设为bsDialog。注意在设计时创建的所有C++ Builder窗体都会有一个标题栏,你并不能象VB中那样简单地通过将Form1的Caption属性设为空来得到一个无标题栏窗体,你必须在TForm的派生类中重载CreateParams函数,去除相应的窗口标识位,在运行时删去窗体的标题栏。打开mainform.h文件,在private段增加CreateParams的原型:

void __fastcall CreateParams(TCreateParams& Params);
TCreateParams结构包含了创建窗体的各种参数,
在这里我们要屏蔽掉WS_CAPTION位。
在mainform.cpp中增加如下代码:
void __fastcall TForm1::CreateParams(TCreateParams& Params)
{
TForm::CreateParams(Params);//先调用基础类中的成员函数
Params.Style &=~WS_CAPTION;
}

---- 下面创建消息映像表,对WM_NCHITTEST消息进行捕获,在mainform.h的public段输入代码:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER
(WM_NCHITTEST,Tmessage,WMNchitTest)
END_MESSAGE_MAP(TForm)

---- WM_NCHITTEST消息名称为"非客户区命中测试",它优先于所有其它的客户区和非客户区鼠标消息,Windows应用程序通常把这个消息传送给DefWindowProc,然后Windows用这个消息产生基于鼠标位置的所有其它鼠标消息。
---- 在private段加入消息处理函数的声明:

void __fastcall WMNchitTest(Tmessage &message);

---- 在mainform.cpp中输入此函数的定义:
void __fastcall TForm1::WMNchitTest(Tmessage &message)
{
if(GetAsyncKeyState(VK_LBUTTON)< 0)

---- message.Result=HTCAPTION; //如果鼠标左键按下,就通知Windows鼠标所在区域是标题栏区,Windows就会按要求完成拖动操作。
else
message.Result=HTCLIENT;
}

---- 这里用Windows API函数GetAsyncKeyState来实时检查鼠标按钮的状态,通过检测虚拟键码VK_LBUTTON的高位是否被置位来探测鼠标动作,如果按下鼠标左键,此键码的高位被置1,此时GetAsyncKeyState函数将返回一个负数。
---- 按F9编译并运行程序,单击窗体任一位置就可以象单击在标题栏上一样拖动窗体了,这里没有给出结束程序运行的机制,可以通过增加PopMenu来实现。

---- 以上代码在C++ Builder3、Pwin98环境下编译、运行通过。

 

在CB中响应消息及自定义消息
作者:unknown 更新时间: 2005-05-13    
 
在 Borland C++Builder 中,也可以象在 Delphi 中一样响应消息,只是看起来要稍复杂一点。对于系统已定义的消息,可以直接响应,而对于非系统消息可以照如下自定义:

//以下代码写在头文件中:
#define WM_MY_OPEN_CMDLINE_FILE (WM_USER+1) //进程间通讯的自定义消息
#define WM_MY_SEARCH_NODE (WM_USER+2) //查找命令的自定义消息
class TSomeForm : public TForm
{//某窗体的类定义


//...类中的其它代码
protected:
//消息的响应过程
void __fastcall OpenCmdLineFile(TMessage Message);
void __fastcall SearchDocumentNode(TMessage Message);
void __fastcall GetWindowMinMaxInfo(TWMGetMinMaxInfo Message);
//通过以下宏定义实现消息的正确响应
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_MY_OPEN_CMDLINE_FILE, TMessage, OpenCmdLineFile)
MESSAGE_HANDLER(WM_MY_SEARCH_NODE, TMessage, SearchDocumentNode)
MESSAGE_HANDLER(WM_GETMINMAXINFO , TWMGetMinMaxInfo, GetWindowMinMaxInfo)
END_MESSAGE_MAP(TForm)

};//end class

--------------------------------------------------------------------------------
//以下为实现代码,写在模块文件中:
void __fastcall TSomeForm::OpenCmdLineFile(TMessage Message)
{//直接通过消息结构传递参数
LPSTR lpCmdLine=(LPSTR)Message.LParam;//从Message中取得参数
this->HandleCmdLineFile(lpCmdLine);//处理命令行的参数
return;
}

--------------------------------------------------------------------------------
void __fastcall TSomeForm::SearchDocumentNode(TMessage Message)
{//响应查找消息

//Message中的参数在此处不需要。
this->SearchNode();
return;

}

--------------------------------------------------------------------------------
void __fastcall TSomeForm::GetWindowMinMaxInfo(TWMGetMinMaxInfo Message)
{//设置主窗口的最小尺寸

MINMAXINFO *MinMaxInfo=Message.MinMaxInfo;
MinMaxInfo->ptMinTrackSize.x=400;
MinMaxInfo->ptMinTrackSize.y=300;
return;

}
其中:TMessage和TWMGetMinMaxInfo类型的定义可参见:C:\Program Files\Borland\CBuilder\inlucde\vcl\Messages.hpp;其它的消息响应方法与此相同。
另外,可以为自定义的消息也定义一个对应的消息结构(如:TSearchNode_Message),至于如何定义消息结构, 可以参考 Borland 的源代码:C:\Program Files\Borland\CBuilder\inlucde\vcl\Messages.hpp
 

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值