DELPHI中的消息处理机制
.unnamed1 {
COLOR: #000000; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
href="http://blueflybird.silversand.net/index.html">首页
★ href="http://home4u.china.com/technology/programming/verybook/"
target=_blank>编程书籍下载 color=#ffff33>★
New Win98帮助格式 本站所有文章都提供打包下载
href="http://blueflybird.silversand.net/download.html">下载资料
由于碧海银沙有时不支持断线续载，如果您有不能下载的东西，请到 href="http://go.163.com/~verybeauty">网易站对于Turbo C、Turbo C++、Turbo
Pascal这些编译器，请到 target=_blank>快意恩仇书社的编程资料相关栏目下载
DELPHI中的消息处理机制 (南京理工大学自控系研96马勇
Delphi是Borland公司提供的一种全新的WINDOWS编程开发工具.由于它采用了具有弹性的和可重用的面向对象Pascal(object-orientedpascal)语言,并有强大的数据库引擎(BDE),快速的代码编译器,同时又提供了众多出色的构件.受到广大编程人员的青睐.在众多的编程语言(如VB,PowerBuilder,Powerpoint等)中脱颖而出.
其中一个DELPHI强于其他编程语言(如VB4.0)的地方就是在DELPHI中可自定义消息,并可直接处理消息.这对于那些希望编写自己的构件(Component),或者希望截获.过滤消息的用户来说是必不可少的.因为编写构件一般要对相应的消息进行处理.下面就对Delphi中消息处理机制进行一下介绍。
一.DELPHIVCL中消息的传递
Delphi中每一个VCL(VisualComponentLibrary)构件(如Tbutton,Tedit等)都有一内在的消息处理机制，其基本点就是构件类接收到某些消息并把它们发送给适当的处理方法,如果没有特定的处理方法，则调用缺省的消息处理句柄。
下流程图说明了消息传递的一般途径,如图所示:
其中mainwndproc是定义在Twincontrol类中的一个静态方法，不能被重载(Override)。它不直接处理消息，而是交由wndproc方法处理，并为wndproc方法提供一个异常处理模块。Mainwndproc方法声明如下:
procedureMainWndProc(varMessage:TMessage);
Wndproc是在Tcontrol类中定义的一个虚拟方法,由它调用dispatch方法来进行消息的分配,wndproc方法声明如下:
procedureWndProc(varMessage:TMessage);virtual;
dispatch方法是在Tobject根类中定义的,其声明如下:
procedureTobject.dispatch(varMessage);传递给dispatch的消息参数必须是一个记录类型,且这个记录中第一个入点必须是一个cardinal类型的域(field),它包含了要分配的消息的消息号码.例如:
type Tmessage=record Msg:cardinal; wparam:word;
lparam:longint;. result:longint; end;
而Dispatch方法会根据消息号码调用构件的最后代类中处理此消息的句柄方法.如果此构件和它的祖先类中都没有对应此消息的处理句柄,Dispatch方法便会调用Defaulthandler方法.Defaulthandler方法是定义于Tobject中的虚拟方法,其声明如下:
procedureDefaulthandler(varMessage);virtual;
Tobject类中的Defaulthandler方法只是实现简单的返回而不对消息进行任何的处理.我们可以通过对此虚拟方法的重载,在子类中实现对消息的缺省处理.对于VCL中的构件而言,其Defaulthandler方法会启动windowsAPI函数Defwindowproc对消息进行处理.
二.DELPHI中的消息处理句柄 在DELPHI中用户可以自定义消息及消息处理句柄.消息处理句柄的定义有如下几个原则:
消息处理句柄方法必须是一个过程,且只能传递一个Tmessage型变量参数.
方法声明后要有一个message命令,后接一个在0到32767之间的消息标号(整型常数).
消息处理句柄方法不需要用override命令来显式指明重载祖先的一个消息处理句柄,另外它一般声明在构件的protected或private区.
在消息处理句柄中一般先是用户自己对消息的处理,最后用inherited命令调用祖先类中对应此消息的处理句柄（有些情况下可能正相反）.由于可能对祖先类中对此消息的处理句柄的名字和参数类型不清楚,而调用命令inherited可以避免此麻烦,同样如果祖先类中没有对应此消息的处理句柄,inherited就会自动调用Defaulthandler方法.（当然如果要屏蔽掉此消息,就不用inherited命令了）。
消息处理句柄方法声明为：
procedureMymsgmethod(varmessage:Tmessage);messageMsgtype;
同样用户也可以定义自己的消息,用户自定义消息应从WM_USER开始. 自定义消息及消息处理句柄举例如下:
constmy_paint=Wm_user+1; type Tmypaint=record
msgid:cardinal; msize:word; mcolor:longint;
msgresult:longint; end; type
Tmycontrol=class(TCustomControl) protected
procedurechange(varmessage:Tmypaint);messagemy_paint; .....
end; ...... procedureTmycontrol.change(varmessage:Tmypaint);
begin size:=message.msize;{设置Tmybutton尺寸属性}
color:=message.mcolor;{设置Tmybutton颜色属性} {dosomethingelse}
inherited;{交由Tcustomcontrol处理} end; 三.过滤消息
过滤消息又称消息陷阱。在一定情况下，用户可能需要屏蔽某些消息.或者截获某些消息进行处理。由以上介绍可以看出过滤消息一般有三种途径：(1).重载构件继承的虚拟方法wndproc.(2).针对某消息编写消息处理句柄.(3).重载构件继承的虚拟方法Defhandler，在其中对消息进行处理。其中常用的方法是方法(2),在上节中已介绍过了，方法(1)与方法(3)相似，这里只简单介绍一下方法(1)。
重载虚拟方法wndproc的一般过程如下：
procedureTmyobject.wndproc(varmessage:Tmessage); begin
{...判断此消息是否该处理..} inheritedwndproc(message);
{未处理的消息交由父辈wndproc方法处理} end;
由此可以看出在wndproc方法中处理消息的优势是可以过滤整个范围内的消息，而不必为每个消息指定一个处理句柄，事实上Tcontrol构件中就是利用它来过滤并处理所有的鼠标消息的(从WM_mousefirst到WM_mouselast，如下代码示).同样利用它也可以阻止某些消息被发送给处理句柄。
procedureTControl.WndProc(varMessage:TMessage); begin
if(Message.Msg>=WM_MOUSEFIRST)and
(Message.Msg<=WM_MOUSELAST) then ifDraggingthen{处理拖曳事件}
DragMouseMsg(TWMMouse(Message)) else ...{处理其他鼠标消息} end;
Dispatch(Message); {否则正常发送消息} end; 下例为一简单的自定义构件例子：
Tmyedit类是从Tedit类派生出的一个新类，它的特点是在运行中不能获得焦点，不能由键盘输入（有点类似Tlabel构件）.我们可在其wndproc方法中过滤出WM_setfocus,WM_mousemove消息并进行处理来达到上述要求，源程序如下：
unitmyedit; interface uses
Windows,Messages,SysUtils,Classes,Graphics,
Controls,Forms,Dialogs, StdCtrls; type
Tmyedit=class(TEdit) private {Privatedeclarations}
protected {Protecteddeclarations} {otherfieldsandmethods}
procedurewndproc(varmessage:Tmessage);override; public
{Publicdeclarations} published {Publisheddeclarations}
end; procedureRegister; implementation procedureRegister;
begin RegisterComponents('Samples',[Tmyedit]); end;
procedureTmyedit.wndproc(varmessage:tmessage); begin
ifmessage.msg=wm_mousemovethen begin cursor:=crarrow;
{设置光标为crarrow,而不是缺省的crBeam光标} exit; end;
ifmessage.msg=wm_SetFocusthenexit;
{屏蔽掉WM_setfocus消息,不让Tmyedit控件获得输入焦点} inheritedwndproc(message);
{其他消息交父辈wndproc处理} end; end.
您可以将Tmyedit加到ComponentPalette中检验其性能。
由以上介绍可以看出，只有清楚了DelphiVCL中的消息处理机制，掌握好处理各种消息的方法和时机（必要时要借助各种工具，如winsight32,spy等），并结合OOP语言的特点，我们才可能编出高质量的构件。这当然要靠读者在实践中不断摸索，积累经验。
class=unnamed1>
class=unnamed1>飞鸟工作室 1999 有任何意见和建议请发 href="mailto:blueflybird@163.net">Email
function showhide() {
var i, ss, cc, rr;
cc = showhide.arguments;
for (i=0; i { ss = cc[i+2];
if (navigator.appName == 'Netscape' && document.layers != null)
{ rr = eval(cc[i]);
if (rr) rr.visibility = ss;
} else if (document.all != null)
{ if (ss == 'show') ss = 'visible';
if (ss == 'hide') ss = 'hidden'; rr = eval(cc[i+1]);
if (rr) rr.style.visibility = ss;
}
}}
function keepIE(WinName,WinTop,WinLeft) {
document.all[WinName].style.top=WinTop+parseInt(document.body.scrollTop)+document.body.clientHeight-90
document.all[WinName].style.left=WinLeft+parseInt(document.body.scrollLeft)+document.body.clientWidth-80
}
function keepNN(WinName,WinTop,WinLeft) {
document.layers[WinName].moveTo(self.pageXOffset+WinLeft+window.innerWidth-80,self.pageYOffset+WinTop+window.innerHeight-90)}
style="LEFT: 0px; POSITION: absolute; TOP: 0px; Z-INDEX: 1"> href="javascript:void(null)"
onclick="showhide('document.layers[\'Win0\']','document.all[\'Win0\']','show')"> border=0 height=48 src="" width=42 NOSAVE>
IE4=(document.all)?1:0
NN4=(document.layers)?1:0
if (IE4)
{
if( (document.body.clientHeight>300)&&(document.body.clientWidth>400) )
{
setInterval('keepIE("Silversand",0,0)',1000)
}
else
{
document.all['Silversand'].style.visibility = 'hidden';
}
}
if (NN4)
{
if( this.window.innerHeight {
document.layers['Silversand'].visibility = 'hide'
}
if( this.window.innerWidth {
document.layers['Silversand'].visibility = 'hide'
}
else
{
setInterval('keepNN("Silversand",0,0)',1000)
}
}
style="HEIGHT: 120px; POSITION: absolute; VISIBILITY: hidden; WIDTH: 80px; Z-INDEX: 2">
IE4=(document.all)?1:0
NN4=(document.layers)?1:0
if (IE4)
setInterval('keepIE("Win0",-30,-30)',1000)
if (NN4)
setInterval('keepNN("Win0",-30,-30)',1000)
========= href="http://blueflybird.silversand.net/Pascal_Delphi/Article/message.htm#off"
onmouseover="showhide('document.layers[\'Win0\']','document.all[\'Win0\']','hide')">X href="http://www.silversand.net/sub/indextech.html" target=_blank
title=WEB技术、编程、软件、硬件及相关资讯>电脑网络系列站点 href="http://bookmark.silversand.net/cgi-bin/bookmark/viewsilversand.cgi"
target=_blank title=碧海银沙全面导航>银沙书签 href="http://www.silversand.net/"
target=_blank>碧海银沙
