⑶ 捕獲消息

　　在某種情況下，你可能希望自定義部件能忽略某種消息。就是說，阻止部件將該消息派送給它的處理方法。為了那樣來捕獲消息，可以覆蓋虛方法WndProc。

　　WndProc方法在將消息傳給Dispatch方法前屏蔽該消息。它依次決定哪一個方法來處理消息。通過覆蓋WndProc，部件得到了派送消息之前過濾它們的機會。

　　通常，象下面這樣覆蓋WndProc：

　　procedure TMyControl.WndProc(var Message: TMessage);

　　begin

　　{ 決定是否繼續處理過程 }

　　inherited WndProc (Message);

　　end;

　　下面的代碼是TControl的WndProc的一部分。TControl定義整個范圍內的鼠標消息，當用戶拖動和放置控制時，它們將被濾過。

　　procedure TControl WndProc(var Message:TMessage);

　　begin

　　if (Message.Msg >= WM_MOVSEFIRST) and

　　(Message.Msg <= WM_MOUSELAST) then

　　if Dragging then

　　DragMouseMsg(TWMMOUSE(Message)) { 處理拖動 }

　　else

　　…　{ 正常處理其它 }

　　…　{ 否則正常處理 }

　　end;

　　3. 創建新的消息處理方法

　　因為Delphi只為大多數普通Windows消息提供了處理方法，所以當你定義自己的消息時，就要創建新的消息處理方法。

　　用戶自定義消息的過程包括兩個方面：

　　● 定義自己的消息

　　● 聲明新的消息處理方法

　　⑴ 定義自己的消息

　　許多標準部件為了內部使用定義了消息。定義消息的最一般的動因是廣播信息和狀態改變的通知。

　　定義消息過程分兩步：

　　● 聲明消息標識符

　　● 聲明消息記錄類型

　　① 聲明消息標識

　　消息標識是整型大小的常量。Windows保存了小于1024的消息用于自己使用，因此當聲明自己的消息時，你應當大于1024。

　　常量WM_USER代表用于自定義消息的開始數字。當定義消息標準時，你應當基于WM_USER。

　　某些標準Windows控制使用用戶自定義范圍的消息，包括ListBox、ComboBox、EditBox和Button。如果從上述部件中繼承了一個部件，在定義新的消息時，應當檢查一下Message單元是否有消息用于該控制。

　　定義消息的方法如下：

　　Const

　　WM_MYFIRSTMESSAGE=WM_USER+0;

　　WM_MYSECONDMESSAGE=WM_USER+1;

　　② 聲明消息記錄類型

　　如果你想給予自定義消息的參數有含義的名字，就要為該消息聲明消息記錄類型。消息記錄是傳給消息處理方法的參數的類型。如果不使用消息參數或者想使用舊風格參數，可以使用缺省的消息記錄。

　　聲明消息記錄類型要遵循下列規則

　　● 以消息名命名消息記錄類型，以T打頭

　　● 將記錄中第一個域命名為Msg，類型為TMsgPraram

　　● 將接著的兩個字節定義為word 以響應word大小的參數

　　● 將接著的四個字節與long參數匹配

　　● 將最后的域命名為Result，類型為Longint

　　下面是TWMMouse的定義

　　type

　　TWMMouse=record

　　Msg: TMsgParam; { 第一個是消息ID }

　　Keys: Word; { wParam }

　　case Integer of { 定義lParam的兩種方式 }

　　o: (

　　Xpos: Integer; { 或者以x，y座標 }

　　Ypos: Integer);

　　1: (

　　Pos : TPoint; { 或者作為單個點 }

　　Result: Longint; ) { 最后是Result域 }

　　end;

　　TWMMouse使用變長記錄定義了相同參數的不同名字集。

　　⑵ 聲明新的消息處理方法

　　有兩類環境需要你定義新的消息處理方法：

　　● 自定義新部件需要處理沒有被標準部件處理的Windows消息

　　● 已定義了自定義部件使用的新消息

　　聲明消息處理方法的辦法如下：

　　● 在部件聲明中的protected部分聲明方法

　　● 將方法做成過程

　　● 以要處理的消息名命名方法 但不帶下劃線

　　● 傳遞一個命名為Message的var參數，類型為消息記錄類型

　　● 編寫用于該部件的特別處理代碼

　　● 調用繼承的消息方法

　　下面是用于用戶自定義消息CM_CHANGECOLOR的消息處理代碼:

　　type

　　TMyComponent=class(TControl)

　　…

　　protected

　　procedure CMChangeColor(var Message:TMessage);

　　message CM_CHANGECOLOR;

　　end:

　　procedure TMyComponent.CMChangeColor(var Message: TMessage);

　　begin

　　color := Message lParam;

　　inherited;

　　end;