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注冊表類方法詳解