DELPHI中的消息处理机制

2019-11-18 18:50:57

字体：大中小

来源：转载

供稿：网友

Delphi是Borland公司提供的一种全新的WINDOWS编程开发工具.由于它采用了具有弹性的和可重用的面向对象Pascal(object-oriented pascal)语言,并有强大的数据库引擎(BDE), 快速的代码编译器, 同时又提供了众多出色的构件.受到广大编程人员的青睐. 在众多的编程语言( 如VB,PowerBuilder,Powerpoint 等) 中脱颖而出.
　　其中一个DELPHI强于其他编程语言(如VB4.0)的地方就是在DELPHI中可自定义消息, 并可直接处理消息. 这对于那些希望编写自己的构件(Component), 或者希望截获. 过滤消息的用户来说是必不可少的. 因为编写构件一般要对相应的消息进行处理.下面就对Delphi 中消息处理机制进行一下介绍。

一.DELPHI VCL中消息的传递
　　Delphi中每一个VCL(Visual Component Library)构件( 如Tbutton,Tedit等)都有一内在的消息处理机制，其基本点就是构件类接收到某些消息并把它们发送给适当的处理方法,如果没有特定的处理方法，则调用缺省的消息处理句柄。其中mainwndPRoc是定义在Twincontrol类中的一个静态方法，不能被重载(Override)。它不直接处理消息，而是交由wndproc 方法处理，并为wndproc方法提供一个异常处理模块。Mainwndproc方法声明如下:

procedure MainWndProc(var Message: TMessage);

Wndproc是在Tcontrol类中定义的一个虚拟方法,由它调用dispatch方法来进行消息的分配, wndproc 方法声明如下:

procedure WndProc(var Message: TMessage); virtual;

dispatch 方法是在Tobject 根类中定义的, 其声明如下:

procedure Tobject.dispatch(var Message); 传递给dispatch 的消息参数必须是一个记录类型, 且这个记录中第一个入点必须是一个cardinal 类型的域(field), 它包含了要分配的消息的消息号码. 例如:

type

Tmessage=record

Msg:cardinal;

wparam:Word;

lparam:longint; .

result:longint;

end;
　　而Dispatch 方法会根据消息号码调用构件的最后代类中处理此消息的句柄方法. 如果此构件和它的祖先类中都没有对应此消息的处理句柄,Dispatch 方法便会调用Defaulthandler 方法.Defaulthandler 方法是定义于Tobject 中的虚拟方法, 其声明如下:

procedure Defaulthandler(var Message);virtual;

　　Tobject 类中的Defaulthandler 方法只是实现简单的返回而不对消息进行任何的处理. 我们可以通过对此虚拟方法的重载, 在子类中实现对消息的缺省处理. 对于VCL 中的构件而言, 其Defaulthandler 方法会启动 windows API 函数Defwindowproc 对消息进行处理.

二.DELPHI 中的消息处理句柄
　　在DELPHI 中用户可以自定义消息及消息处理句柄. 消息处理句柄的定义有如下几个原则:

　　消息处理句柄方法必须是一个过程, 且只能传递一个Tmessage 型变量参数.
　　方法声明后要有一个message 命令, 后接一个在0 到32767 之间的消息标号( 整型常数).
　　消息处理句柄方法不需要用override 命令来显式指明重载祖先的一个消息处理句柄, 另外它一般声明在构件的protected 或private 区.
　　在消息处理句柄中一般先是用户自己对消息的处理, 最后用inherited 命令调用祖先类中对应此消息的处理句柄（有些情况下可能正相反）. 由于可能对祖先类中对此消息的处理句柄的名字和参数类型不清楚, 而调用命令inherited 可以避免此麻烦, 同样如果祖先类中没有对应此消息的处理句柄,inherited 就会自动调用Defaulthandler 方法.（当然如果要屏蔽掉此消息, 就不用inherited 命令了）。
消息处理句柄方法声明为：
procedure Mymsgmethod(var message:Tmessage); message Msgtype;

同样用户也可以定义自己的消息, 用户自定义消息应从WM_USER 开始.

自定义消息及消息处理句柄举例如下:

const my_paint=Wm_user+1;

type

Tmypaint=record

msgid:cardinal;

msize:word;

mcolor:longint;

msgresult:longint;

end;

type

Tmycontrol=class(TCustomControl)

protected

procedure change(var message:Tmypaint); message my_paint;

.....

end;

......

procedure Tmycontrol.change(var message:Tmypaint);

begin

size:=message.msize; { 设置Tmybutton 尺寸属性}

color:=message.mcolor; { 设置Tmybutton 颜色属性}

{do something else}

inherited; { 交由Tcustomcontrol 处理}

end;
三. 过滤消息
　　过滤消息又称消息陷阱。在一定情况下，用户可能需要屏蔽某些消息. 或者截获某些消息进行处理。由以上介绍可以看出过滤消息一般有三种途径：(1). 重载构件继承的虚拟方法wndproc. (2). 针对某消息编写消息处理句柄. (3). 重载构件继承的虚拟方法Defhandler，在其中对消息进行处理。其中常用的方法是方法(2), 在上节中已介绍过了，方法(1) 与方法(3) 相似，这里只简单介绍一下方法(1)。

重载虚拟方法wndproc 的一般过程如下：

procedure Tmyobject.wndproc(var message:Tmessage);

begin

{... 判断此消息是否该处理..}

inherited wndproc(message);

{ 未处理的消息交由父辈wndproc 方法处理}

end;
　　由此可以看出在wndproc 方法中处理消息的优势是可以过滤整个范围内的消息，而不必为每个消息指定一个处理句柄，事实上Tcontrol 构件中就是利用它来过滤并处理所有的鼠标消息的( 从WM_mousefirst 到WM_mouselast，如下代码示). 同样利用它也可以阻止某些消息被发送给处理句柄。

procedure TControl.WndProc(var Message: TMessage);

begin

if (Message.Msg>=WM_MOUSEFIRST) and

(Message.Msg <= WM_MOUSELAST)

then

if Dragging then { 处理拖曳事件}

DragMouseMsg(TWMMouse(Message))

else

... { 处理其他鼠标消息}

end;

Dispatch(Message);

{ 否则正常发送消息}

end;
下例为一简单的自定义构件例子：

　　Tmyedit 类是从Tedit 类派生出的一个新类，它的特点是在运行中不能获得焦点，不能由键盘输入（有点类似Tlabel 构件）. 我们可在其wndproc 方法中过滤出WM_setfocus,WM_mousemove 消息并进行处理来达到上述要求，源程序如下：

unit myedit;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls;

type

Tmyedit = class(TEdit)

private

{ Private declarations }

protected

{ Protected declarations }

{ other fields and methods}

procedure wndproc(var message:Tmessage);override;

public

{ Public declarations }

published

{ Published declarations }

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples', [Tmyedit]);

end;

procedure Tmyedit.wndproc(var message:tmessage);

begin

if message.msg=wm_mousemove then

begin

cursor:=crarrow;

{ 设置光标为crarrow, 而不是缺省的crBeam 光标}

exit;

end;

if message.msg=wm_SetFocus then exit;

{屏蔽掉WM_setfocus消息,不让Tmyedit控件获得输入焦点}

inherited wndproc(message);

{其他消息交父辈wndproc处理}

end;

end.
您可以将Tmyedit 加到Component Palette中检验其性能。

　　由以上介绍可以看出，只有清楚了Delphi VCL中的消息处理机制，掌握好处理各种消息的方法和时机（必要时要借助各种工具，如winsight32,spy 等），并结合OOP语言的特点，我们才可能编出高质量的构件。这当然要靠读者在实践中不断摸索，积累经验.

上一篇：使用Delphi获取系列信息

下一篇：Delphi的TRegistry注册表类方法详解

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注