我们的产品，外购了一个第三方的软件开发包。
很恶心的是，这个开发包的函数中竟然动不动就出现错误提示讯息框，其实函数的返回码中已经包括了错误代码，根据不需要它再提示。我们现在是批量的调用这个API，中间不想有任何中断，所以错误信息现在在一个TMEMO控件中。由于时间紧急，让软件包供应商改API，可能影响项目的进度各位有没有什么好的方法解决这个难题呢？
很恶心的是，这个开发包的函数中竟然动不动就出现错误提示讯息框，其实函数的返回码中已经包括了错误代码，根据不需要它再提示。我们现在是批量的调用这个API，中间不想有任何中断，所以错误信息现在在一个TMEMO控件中。由于时间紧急，让软件包供应商改API，可能影响项目的进度各位有没有什么好的方法解决这个难题呢？
其中一个DELPHI强于其他编程语言(如VB4.0)的地方就是在DELPHI中可自定义消息,并可直接处理消息.这对于那些希望编写自己的构件(Component),或者希望截获.过滤消息的用户来说是必不可少的.因为编写构件一般要对相应的消息进行处理.下面就对Delphi中消息处理机制进行一下介绍。一.DELPHIVCL中消息的传递
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方法会启动windowsAPI函数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
{...判断此消息是否该处理..}
inheritedwndproc(message);
{未处理的消息交由父辈wndproc方法处理}
end;
var
buffer: array[0..255] of Char;
buffer1: array[0..255] of Char;
begin
Result := True; GetClassName(hwnd,buffer,256); if StrPas(Buffer)='Edit' then
begin
GetWindowText(hwnd,buffer1,100);
PInteger(lparam)^ := hwnd;
Result:=False;
end;
end;
funtcion gettext:string;
var
Buf: array[0..1024] of Char;
tmpHandle: Integer;
Ftexthandle:hwnd;
begin
EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));
FTextHandle := tmpHandle;
SendMessage(FTextHandle , WM_GETTEXT, 1024, Integer(@Buf));
result := Buf;
end;
postmessage(handle,wm_close,0,0)