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;
