delphi中消息机制使用

《delphi中消息机制使用》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Delphi消息处理机制Delphi中的消息消息是Windows发出的一个通知，它告诉应用程序某个事件发生了。在Delphi中，大多数情况下Windows的消息被封装在VCL的事件中，我们只需处理相应的VCL事件就可以了，但如果我们需要编写自己的控件、截获或过滤消息就必须深入研究Win32的消息处理机制。在Delphi中消息以TMessage记录的方式定义。打开Message.pas文件，我们可以看到Tmessage是这样定义的：typeTMessage=packedrecordMsg:Cardinal;caseIntegerof0:(WParam:Longint;LParam:Longint

2、;Result:Longint);1:(WParamLo:Word;WParamHi:Word;LParamLo:Word;LParamHi:Word;ResultLo:Word;ResultHi:Word);end;其中，Msg是区别于其他消息的常量值，这些常量值可以是Windows单元中预定义的常量，也可以是用户自己定义的常量。Wparam通常是一个与消息有关的常量值，也可以是窗口或控件的句柄。LParam通常是一个指向内存中数据的指针。Result是消息处理的返回值。Wparam、Lparam和Result都是32位的，如果想访问其中的低16位或高16位可以分别使用WparamLo、Wp

3、aramHi、LParamLo、LparamHi、ResultLo和ResultHi。在Delphi中除了通用的Tmessage外，还为每个Windows定义了一个特殊的消息记录。我们可以浏览Message.pas文件，下面是键盘的消息记录：TWMKey=packedrecordMsg:Cardinal;CharCode:Word;Unused:Word;KeyData:Longint;Result:Longint;与键盘相关的消息如：WM_KEYDOWN、WM_KEYUP、WM_CHAR、WM_SYSKEYDOWNWM_SYSKEYUP、WM_SYSCHAR的记录也被定义为TWMkey。在M

4、essage.pas文件中有以下声明：TWMChar=TWMkey；TWMKeyDown=TWMkey；TWMKeyUp=TWMkey；TWMSys-KeyDown=TWMkey;TWMSysKeyUp=TWMkey；TWMSysChar=TWMkey； 消息的发送消息处理就是定义应用程序如何响应Windows的消息。在Delphi中每一个消息都有自己的处理过程，它必须是一个对象中的方法，且只能传递一个Tmessage或其他特殊的消息记录，方法声明后要有一个message命令，后接一个在0到32767之间的常量。前面我们提到的消息都是标准的Windows消息（WM_X）,除此之外还有VCL内部

5、消息、通知消息和用户自定义消息。VCL内部消息通常以“CM_”开头，用于管理VCL内部的事物。如果改变了某个属性值或组件的其他一些特性后，需要通过内部消息将该变化通知其他组件。例如，激活输入焦点消息是向被激活的或被停用的组件发送的，用于接受或放弃输入焦点。另外还有通知消息，一个窗口内的子控件发生了一些事情，需要通知父窗口，这是通过通知消息实现的。它只适用于标准的窗口控件，如按钮、列表框、编辑框等等。打开Message.pas文件，在标准的Windows后就是通知消息的声明:const{$EXTERNALSYMBN_CLICKED}BN_CLICKED=0;{$EXTERNALSYMBN_PAI

6、NT}BN_PAINT=1;{$EXTERNALSYMBN_HILITE}BN_HILITE=2;以上是按钮的通知消息，分别表示用户单击了按钮、按钮应当重画、用户加亮了按钮。用户也可以自己定义消息、给自己发送消息和编写消息处理过程。消息的常量值为WM_USER+100到FFF,这个范围是Windows为用户自定义消息保留的。Delphi消息的发送有三种方法：1．Tcontrol类的Perform对象方法。可以向任何一个窗体或控件发送消息，只需要知道窗体或控件的实例。其声明如下：functionTcontrol.Perform(Msg:Cardinal;Wparam,Lparam:Longint

7、):Longint2．Windows的API函数SendMessage（）和Postmessage（）。其声明如下：functionSendMessage（hWnd:HWND;Msg:UINT；wParam：WPARAM;lParam:LPARAM）：LRESULT；stdcall；functionPostMessage（hWnd:HWND;Msg:UINT；wParam:WPARAM;lPara