Delphi的消息處理
Delphi是Borland公司的一種面向?qū)ο蟮目梢暬浖_發(fā)工具。
Delphi集中了Visual C + +和Visual Basic兩者的優(yōu)點(diǎn)：容易上手、功能強(qiáng)大，特別是在界面設(shè)計(jì)、數(shù)據(jù)庫編程、網(wǎng)絡(luò)編程方面更有其獨(dú)特的優(yōu)勢。
Delphi中的消息
消息是Windows發(fā)出的一個(gè)通知，它告訴應(yīng)用程序某個(gè)事件發(fā)生了。在Delphi中，大多數(shù)情況下Windows的消息被封裝在VCL的事件中，我們只需處理相應(yīng)的VCL事件就可以了，但如果我們需要編寫自己的控件、截獲或過濾消息就必須深入研究Win32的消息處理機(jī)制。
在Delphi中消息以TMessage記錄的方式定義。打開Message.pas文件，我們可以看到Tmessage是這樣定義的：
type
TMessage = packed record
Msg: Cardinal;
case Integer of
0: (WParam: Longint;
LParam: Longint;
Result: Longint);
1: (WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);
end;
其中，Msg是區(qū)別于其他消息的常量值，這些常量值可以是Windows單元中預(yù)定義的常量，也可以是用戶自己定義的常量。Wparam通常是一個(gè)與消息有關(guān)的常量值，也可以是窗口或控件的句柄。LParam通常是一個(gè)指向內(nèi)存中數(shù)據(jù)的指針。
Result是消息處理的返回值。Wparam、Lparam和Result都是32位的，如果想訪問其中的低16位或高16位可以分別使用WparamLo、WparamHi、 LParamLo、LparamHi、ResultLo和ResultHi。
在Delphi中除了通用的Tmessage外，還為每個(gè)Windows定義了一個(gè)特殊的消息記錄。我們可以瀏覽Message.pas文件，下面是鍵盤的消息記錄：
TWMKey = packed record
Msg: Cardinal;
CharCode: Word;
Unused: Word;
KeyData: Longint;
Result: Longint;
與鍵盤相關(guān)的消息如：WM_KEYDOWN、 WM_KEYUP、 WM_CHAR、 WM_SYSKEYDOWN WM_SYSKEYUP、 WM_SYSCHAR的記錄也被定義為TWMkey。在Message.pas文件中有以下聲明：
TWMChar = TWMkey； TWMKeyDown =
TWMkey；TWMKeyUp = TWMkey； TWMSys
- KeyDown = TWMkey; TWMSysKeyUp =
TWMkey；TWMSysChar = TWMkey；
消息的發(fā)送
消息處理就是定義應(yīng)用程序如何響應(yīng)Windows的消息。在Delphi中每一個(gè)消息都有自己的處理過程，它必須是一個(gè)對象中的方法，且只能傳遞一個(gè)Tmessage或其他特殊的消息記錄，方法聲明后要有一個(gè)message命令，后接一個(gè)在0到32767之間的常量。
前面我們提到的消息都是標(biāo)準(zhǔn)的Windows消息（WM_X）, 除此之外還有VCL內(nèi)部消息、通知消息和用戶自定義消息。
VCL內(nèi)部消息通常以“CM_”開頭，用于管理VCL內(nèi)部的事物。如果改變了某個(gè)屬性值或組件的其他一些特性后，需要通過內(nèi)部消息將該變化通知其他組件。例如，激活輸入焦點(diǎn)消息是向被激活的或被停用的組件發(fā)送的，用于接受或放棄輸入焦點(diǎn)。
另外還有通知消息，一個(gè)窗口內(nèi)的子控件發(fā)生了一些事情，需要通知父窗口，這是通過通知消息實(shí)現(xiàn)的。它只適用于標(biāo)準(zhǔn)的窗口控件，如按鈕、列表框、編輯框等等。打開Message.pas文件，在標(biāo)準(zhǔn)的Windows后就是通知消息的聲明:
const
{$EXTERNALSYM BN_CLICKED}
BN_CLICKED = 0;
{$EXTERNALSYM BN_PAINT}
BN_PAINT = 1;
{$EXTERNALSYM BN_HILITE}
BN_HILITE = 2;
以上是按鈕的通知消息，分別表示用戶單擊了按鈕、按鈕應(yīng)當(dāng)重畫、用戶加亮了按鈕。
用戶也可以自己定義消息、給自己發(fā)送消息和編寫消息處理過程。消息的常量值為WM_USER + 100 到$7FFF, 這個(gè)范圍是Windows為用戶自定義消息保留的。
Delphi消息的發(fā)送有三種方法：
1 ．Tcontrol類的Perform對象方法?？梢韵蛉魏我粋€(gè)窗體或控件發(fā)送消息，只需要知道窗體或控件的實(shí)例。其聲明如下：
function Tcontrol.Perform(Msg: Cardinal; Wparam, Lparam: Longint): Longint
2 ．Windows的API函數(shù)SendMessage（）和Postmessage（）。其聲明如下：
function SendMessage（hWnd: HWND; Msg: UINT；wParam：WPARAM; lParam: LPARAM）：LRESULT；stdcall；
function SendMessage（hWnd: HWND; Msg: UINT；wParam: WPARAM; lParam：LPARAM）：LRESULT；stdcall
PostMessage函數(shù)將消息添加到應(yīng)用程序的消息隊(duì)列中去。應(yīng)用程序的消息循環(huán)會從消息隊(duì)列中提取登記的該消息，再發(fā)送到相應(yīng)的窗口中。
SendMessage函數(shù)可以越過消息隊(duì)列直接向窗口過程發(fā)送。所以當(dāng)Windows需要立刻返回值時(shí)使用SendMessage，當(dāng)需要不同的應(yīng)用程序依次處理消息時(shí)使用PostMessage。而Perform從本質(zhì)上和SendMessage相似，它們直接向窗口過程發(fā)送。SendMessage、Postmessage函數(shù)只需要知道窗口的句柄就可以發(fā)送消息，所以它們可以向非Delphi窗體發(fā)送一條消息，但而Perform必須知道窗體或控件的實(shí)例。
VCL消息處理機(jī)制
在Delphi應(yīng)用程序的源代碼中有語句Application.Run，它的作用是啟動(dòng)消息循環(huán)，然后調(diào)用Application.ProcessMessage，該函數(shù)會在應(yīng)用程序的消息隊(duì)列中查找一條消息。當(dāng)在消息隊(duì)列中檢索到一條消息后，觸發(fā)Application.OnMessage事件。這樣在Windows本身對消息處理之前，就會響應(yīng)OnMessage事件的處理過程，它優(yōu)于任何消息處理，而且只接收登記的消息，即前面所述的由PostMessage發(fā)送的消息。響應(yīng)Application.OnMessage事件的處理過程必須是TmessageEvent類型, 其聲明如下：
type TMessageEvent = procedure(var Msg: TMsg; var Handled: Boolean) of object;
其中TMsg是Windows中定義的消息記錄，我們可以這樣聲明：
procedure OnMyMessage(var Msg: TMsg; var Handled: Boolean);
然后把此方法賦給Application.OnMessage事件:
Application.OnMessage := OnMyMessage;
OnMessage事件將捕獲發(fā)送給應(yīng)用程序的所有消息，這是一個(gè)非常繁忙的事件，因此在處理OnMessage事件的處理過程中設(shè)置斷點(diǎn)進(jìn)行消息處理是不明智的。
VCL對象用于接收消息的方法叫MainWndProc。它是定義在Twincontrol類中的靜態(tài)方法，不能被重載。它不直接處理消息，當(dāng)消息離開MainWndProc后，消息被傳遞給對象的WndProc方法，WndProc方法是在Tcontrol類中定義的一個(gè)虛擬方法，由它調(diào)用Dispatch方法。Dispatch根據(jù)傳入的Message來尋找相應(yīng)的處理方法，如果最后找不到，就繼續(xù)向上到父類中尋找消息處理方法，一直到找到為止，如果找不到則調(diào)用Defaulthandler。Defaulthandler方法對消息進(jìn)行最后的處理，然后把消息傳遞給Windows的DefWindowProc函數(shù)或其他默認(rèn)的窗口過程。
