知识大全 Delphi的消息处理[2]

Posted 2022-07-14 消息

篇首语：莫道桑榆晚，为霞尚满天。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi的消息处理[2]相关的知识，希望对你有一定的参考价值。

Delphi的消息处理[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

消息的发送

消息处理就是定义应用程序如何响应Windows的消息在Delphi中每一个消息都有自己的处理过程它必须是一个对象中的方法且只能传递一个Tmessage或其他特殊的消息记录方法声明后要有一个message命令后接一个在到之间的常量

前面我们提到的消息都是标准的Windows消息（WM_X）除此之外还有VCL内部消息通知消息和用户自定义消息

VCL内部消息通常以 CM_ 开头用于管理VCL内部的事物如果改变了某个属性值或组件的其他一些特性后需要通过内部消息将该变化通知其他组件例如激活输入焦点消息是向被激活的或被停用的组件发送的用于接受或放弃输入焦点

另外还有通知消息一个窗口内的子控件发生了一些事情需要通知父窗口这是通过通知消息实现的它只适用于标准的窗口控件如按钮列表框编辑框等等打开Message pas文件在标准的Windows后就是通知消息的声明:

　　const

　　$EXTERNALSYM BN_CLICKED

　　 BN_CLICKED = ;

　　$EXTERNALSYM BN_PAINT

　　 BN_PAINT = ;

　　$EXTERNALSYM BN_HILITE

　　 BN_HILITE = ;

以上是按钮的通知消息分别表示用户单击了按钮按钮应当重画用户加亮了按钮

用户也可以自己定义消息给自己发送消息和编写消息处理过程消息的常量值为WM_USER + 到$ FFF 这个范围是Windows为用户自定义消息保留的

Delphi消息的发送有三种方法

．Tcontrol类的Perform对象方法可以向任何一个窗体或控件发送消息只需要知道窗体或控件的实例其声明如下

function Tcontrol Perform(Msg: Cardinal; Wparam Lparam: Longint): Longint

　　．Windows的API函数SendMessage（）和Postmessage（）其声明如下

　　function SendMessage（hWnd: HWND; Msg: UINT wParam WPARAM; lParam: LPARAM） LRESULT stdcall

　　function SendMessage（hWnd: HWND; Msg: UINT wParam: WPARAM; lParam LPARAM） LRESULT stdcall

　　PostMessage函数将消息添加到应用程序的消息队列中去应用程序的消息循环会从消息队列中提取登记的该消息再发送到相应的窗口中

　　SendMessage函数可以越过消息队列直接向窗口过程发送所以当Windows需要立刻返回值时使用SendMessage 当需要不同的应用程序依次处理消息时使用PostMessage 而Perform从本质上和SendMessage相似它们直接向窗口过程发送 SendMessage Postmessage函数只需要知道窗口的句柄就可以发送消息所以它们可以向非Delphi窗体发送一条消息但而Perform必须知道窗体或控件的实例

　　VCL消息处理机制

　　在Delphi应用程序的源代码中有语句Application Run 它的作用是启动消息循环然后调用Application ProcessMessage 该函数会在应用程序的消息队列中查找一条消息当在消息队列中检索到一条消息后触发Application OnMessage事件这样在Windows本身对消息处理之前就会响应OnMessage事件的处理过程它优于任何消息处理而且只接收登记的消息即前面所述的由PostMessage发送的消息响应Application OnMessage事件的处理过程必须是TmessageEvent类型其声明如下

type TMessageEvent = procedure(var Msg: TMsg; var Handled: Boolean) of object;

　　其中TMsg是Windows中定义的消息记录我们可以这样声明

　　procedure OnMyMessage(var Msg: TMsg; var Handled: Boolean);

　　然后把此方法赋给Application OnMessage事件:

　　Application OnMessage := OnMyMessage;

　　OnMessage事件将捕获发送给应用程序的所有消息这是一个非常繁忙的事件因此在处理OnMessage事件的处理过程中设置断点进行消息处理是不明智的

　　VCL对象用于接收消息的方法叫MainWndProc 它是定义在Twincontrol类中的静态方法不能被重载它不直接处理消息当消息离开MainWndProc后消息被传递给对象的WndProc方法 WndProc方法是在Tcontrol类中定义的一个虚拟方法由它调用Dispatch方法 Dispatch根据传入的Message来寻找相应的处理方法如果最后找不到就继续向上到父类中寻找消息处理方法一直到找到为止如果找不到则调用Defaulthandler Defaulthandler方法对消息进行最后的处理然后把消息传递给Windows的DefWindowProc函数或其他默认的窗口过程

cha138/Article/program/Delphi/201311/24882