因為Delphi只為大多數普通Windows消息提供了處理方法
用戶自定義消息的過程包括兩個方面
● 定義自己的消息
● 聲明新的消息處理方法
⑴ 定義自己的消息
許多標准部件為了內部使用定義了消息
定義消息過程分兩步
● 聲明消息標識符
● 聲明消息記錄類型
① 聲明消息標識
消息標識是整型大小的常量
常量WM_USER代表用於自定義消息的開始數字
某些標准Windows控制使用用戶自定義范圍的消息
定義消息的方法如下
Const
WM_MYFIRSTMESSAGE=WM_USER+
WM_MYSECONDMESSAGE=WM_USER+
② 聲明消息記錄類型
如果你想給予自定義消息的參數有含義的名字
聲明消息記錄類型要遵循下列規則
● 以消息名命名消息記錄類型
● 將記錄中第一個域命名為Msg
● 將接著的兩個字節定義為word 以響應word大小的參數
● 將接著的四個字節與long參數匹配
● 將最後的域命名為Result
下面是TWMMouse的定義
type
TWMMouse=record
Msg: TMsgParam; { 第一個是消息ID }
Keys: Word; { wParam }
case Integer of { 定義lParam的兩種方式 }
o: （
Xpos: Integer; { 或者以x
Ypos: Integer）
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
begin
color := Message lParam;
inherited;
end;
編寫部件及其屬性
使部件在設計時可用需要經過如下幾步
● 用Delphi注冊部件
● 增加選擇板位圖
● 提供有關屬性和事件的幫助
● 存貯和讀取屬性
為了讓Delphi識別自定義部件
注冊一個部件要在部件所在單元裡加入Register方法
● 聲明注冊過程
● 實現注冊過程
一旦安裝了注冊過程
注冊過程要在部件所在單元中寫一個過程
下面的代碼演示了建立和注冊部件的概略方法
unit MyBtns;
interface
type
… { 聲明自定義部件 }
procedure Register;
Implementation
procedure Register;
begin
… { 注冊部件 }
end;
end
在Register過程中
[
From:http://tw.wingwit.com/Article/program/Delphi/201311/25113.html