DELPHI中的消息處理機(jī)制

2019-11-18 18:50:57

字體：大中小

供稿：網(wǎng)友

Delphi是Borland公司提供的一種全新的WINDOWS編程開發(fā)工具.由于它采用了具有彈性的和可重用的面向?qū)ο驪ascal(object-oriented pascal)語言,并有強(qiáng)大的數(shù)據(jù)庫引擎(BDE), 快速的代碼編譯器, 同時(shí)又提供了眾多出色的構(gòu)件.受到廣大編程人員的青睞. 在眾多的編程語言( 如VB,PowerBuilder,Powerpoint 等) 中脫穎而出.
　　其中一個(gè)DELPHI強(qiáng)于其他編程語言(如VB4.0)的地方就是在DELPHI中可自定義消息, 并可直接處理消息. 這對于那些希望編寫自己的構(gòu) 件(Component), 或者希望截獲. 過濾消息的用戶來說是必不可少的. 因為編寫構(gòu) 件一般要對相應(yīng)的消息進(jìn)行處理.下面就對Delphi 中消息處理機(jī)制進(jìn)行一下介紹。

一.DELPHI VCL中消息的傳遞
　　Delphi中每一個(gè)VCL(Visual Component Library)構(gòu)件( 如Tbutton,Tedit等)都有一內(nèi)在的消息處理機(jī)制，其基本點(diǎn)就是構(gòu)件類接收到某些消息并把它們發(fā)送給適當(dāng)?shù)奶幚矸椒?如果沒有特定的處理方法，則調(diào)用缺省的消息處理句柄。其中mainwndPRoc是定義在Twincontrol類中的一個(gè)靜態(tài)方法，不能被重載(Override)。它不直接處理消息，而是交由wndproc 方法處理，并為wndproc方法提供一個(gè)異常處理模塊。Mainwndproc方法聲明如下:

procedure MainWndProc(var Message: TMessage);

Wndproc是在Tcontrol類中定義的一個(gè)虛擬方法,由它調(diào)用dispatch方法來進(jìn)行消息的分配, wndproc 方法聲明如下:

procedure WndProc(var Message: TMessage); virtual;

dispatch 方法是在Tobject 根類中定義的, 其聲明如下:

procedure Tobject.dispatch(var Message); 傳遞給dispatch 的消息參數(shù) 必須是一個(gè) 記錄類型, 且這個(gè) 記錄中第一個(gè) 入點(diǎn) 必須是一個(gè)cardinal 類型的域(field), 它包含了要分配的消息的消息號碼. 例如:

type

Tmessage=record

Msg:cardinal;

wparam:Word;

lparam:longint; .

result:longint;

end;
　　而Dispatch 方法會(huì) 根據(jù) 消息號碼調(diào) 用構(gòu) 件的最后代類中處理此消息的句柄方法. 如果此構(gòu) 件和它的祖先類中都沒有對應(yīng) 此消息的處理句柄,Dispatch 方法便會(huì) 調(diào) 用Defaulthandler 方法.Defaulthandler 方法是定義于Tobject 中的虛擬方法, 其聲明如下:

procedure Defaulthandler(var Message);virtual;

　　Tobject 類中的Defaulthandler 方法只是實(shí) 現(xiàn) 簡單的返回而不對消息進(jìn) 行任何的處理. 我們可以通過對此虛擬方法的重載, 在子類中實(shí) 現(xiàn) 對消息的缺省處理. 對于VCL 中的構(gòu) 件而言, 其Defaulthandler 方法會(huì) 啟動(dòng) windows API 函數(shù)Defwindowproc 對消息進(jìn) 行處理.

二.DELPHI 中的消息處理句柄
　　在DELPHI 中用戶可以自定義消息及消息處理句柄. 消息處理句柄的定義有如下幾個(gè) 原則:

　　消息處理句柄方法必須是一個(gè) 過程, 且只能傳遞一個(gè)Tmessage 型變量參數(shù).
　　方法聲明后要有一個(gè)message 命令, 后接一個(gè) 在0 到32767 之間的消息標(biāo) 號( 整型常數(shù)).
　　消息處理句柄方法不需要用override 命令來顯式指明重載祖先的一個(gè) 消息處理句柄, 另外它一般聲明在構(gòu) 件的protected 或private 區(qū).
　　在消息處理句柄中一般先是用戶自己對消息的處理, 最后用inherited 命令調(diào) 用祖先類中對應(yīng) 此消息的處理句柄（有些情況下可能正相反）. 由于可能對祖先類中對此消息的處理句柄的名字和參數(shù) 類型不清楚, 而調(diào) 用命令inherited 可以避免此麻煩, 同樣如果祖先類中沒有對應(yīng) 此消息的處理句柄,inherited 就會(huì) 自動(dòng) 調(diào) 用Defaulthandler 方法.（當(dāng) 然如果要屏蔽掉此消息, 就不用inherited 命令了）。
消息處理句柄方法聲明為：
procedure Mymsgmethod(var message:Tmessage); message Msgtype;

同樣用戶也可以定義自己的消息, 用戶自定義消息應(yīng) 從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; { 設(shè) 置Tmybutton 尺寸屬性}

color:=message.mcolor; { 設(shè) 置Tmybutton 顏色屬性}

{do something else}

inherited; { 交由Tcustomcontrol 處理}

end;
三. 過濾消息
　　過濾消息又稱消息陷阱。在一定情況下，用戶可能需要屏蔽某些消息. 或者截獲某些消息進(jìn) 行處理。由以上介紹可以看出過濾消息一般有三種途徑：(1). 重載構(gòu) 件繼承的虛擬方法wndproc. (2). 針對某消息編寫消息處理句柄. (3). 重載構(gòu) 件繼承的虛擬方法Defhandler，在其中對消息進(jìn) 行處理。其中常用的方法是方法(2), 在上節(jié) 中已介紹過了，方法(1) 與方法(3) 相似，這里只簡單介紹一下方法(1)。

重載虛擬方法wndproc 的一般過程如下：

procedure Tmyobject.wndproc(var message:Tmessage);

begin

{... 判斷此消息是否該處理..}

inherited wndproc(message);

{ 未處理的消息交由父輩wndproc 方法處理}

end;
　　由此可以看出在wndproc 方法中處理消息的優(yōu) 勢是可以過濾整個(gè) 范圍內(nèi) 的消息，而不必為每個(gè) 消息指定一個(gè) 處理句柄，事實(shí) 上Tcontrol 構(gòu) 件中就是利用它來過濾并處理所有的鼠標(biāo) 消息的( 從WM_mousefirst 到WM_mouselast，如下代碼示). 同樣利用它也可以阻止某些消息被發(fā) 送給處理句柄。

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

... { 處理其他鼠標(biāo) 消息}

end;

Dispatch(Message);

{ 否則正常發(fā) 送消息}

end;
下例為一簡單的自定義構(gòu) 件例子：

　　Tmyedit 類是從Tedit 類派生出的一個(gè) 新類，它的特點(diǎn) 是在運(yùn) 行中不能獲得焦點(diǎn)，不能由鍵盤輸入（有點(diǎn) 類似Tlabel 構(gòu) 件）. 我們可在其wndproc 方法中過濾出WM_setfocus,WM_mousemove 消息并進(jìn) 行處理來達(dá) 到上述要求，源程序如下：

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;

{ 設(shè) 置光標(biāo) 為crarrow, 而不是缺省的crBeam 光標(biāo)}

exit;

end;

if message.msg=wm_SetFocus then exit;

{屏蔽掉WM_setfocus消息,不讓Tmyedit控件獲得輸入焦點(diǎn)}

inherited wndproc(message);

{其他消息交父輩wndproc處理}

end;

end.
您可以將Tmyedit 加到Component Palette中檢驗(yàn)其性能。

　　由以上介紹可以看出，只有清楚了Delphi VCL中的消息處理機(jī)制，掌握好處理各種消息的方法和時(shí)機(jī)（必要時(shí)要借助各種工具，如winsight32,spy 等），并結(jié)合OOP語言的特點(diǎn)，我們才可能編出高質(zhì)量的構(gòu)件。這當(dāng)然要靠讀者在實(shí)踐中不斷摸索，積累經(jīng)驗(yàn).

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

下一篇：Delphi的TRegistry注冊表類方法詳解

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注