2011計(jì)算機(jī)等考Delphi：Delphi自定義部件開發(fā)

　　⑶ 捕獲消息

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

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

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

　　procedure TMyControl.WndProc(var Message: TMessage);

　　begin

　　{ 決定是否繼續(xù)處理過程 }

　　inherited WndProc (Message);

　　end;

　　下面的代碼是TControl的WndProc的一部分。TControl定義整個(gè)范圍內(nèi)的鼠標(biāo)消息，當(dāng)用戶拖動(dòng)和放置控制時(shí)，它們將被濾過。

　　procedure TControl WndProc(var Message:TMessage);

　　begin

　　if (Message.Msg >= WM_MOVSEFIRST) and

　　(Message.Msg <= WM_MOUSELAST) then

　　if Dragging then

　　DragMouseMsg(TWMMOUSE(Message)) { 處理拖動(dòng) }

　　else

　　…　{ 正常處理其它 }

　　…　{ 否則正常處理 }

　　end;

　　3. 創(chuàng)建新的消息處理方法

　　因?yàn)镈elphi只為大多數(shù)普通Windows消息提供了處理方法，所以當(dāng)你定義自己的消息時(shí)，就要?jiǎng)?chuàng)建新的消息處理方法。

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

　　● 定義自己的消息

　　● 聲明新的消息處理方法

　�、� 定義自己的消息

　　許多標(biāo)準(zhǔn)部件為了內(nèi)部使用定義了消息。定義消息的最一般的動(dòng)因是廣播信息和狀態(tài)改變的通知。

　　定義消息過程分兩步：

　　● 聲明消息標(biāo)識(shí)符

　　● 聲明消息記錄類型

　�、� 聲明消息標(biāo)識(shí)

　　消息標(biāo)識(shí)是整型大小的常量。Windows保存了小于1024的消息用于自己使用，因此當(dāng)聲明自己的消息時(shí)，你應(yīng)當(dāng)大于1024。

　　常量WM_USER代表用于自定義消息的開始數(shù)字。當(dāng)定義消息標(biāo)準(zhǔn)時(shí)，你應(yīng)當(dāng)基于WM_USER。

　　某些標(biāo)準(zhǔn)Windows控制使用用戶自定義范圍的消息，包括ListBox、ComboBox、EditBox和Button。如果從上述部件中繼承了一個(gè)部件，在定義新的消息時(shí)，應(yīng)當(dāng)檢查一下Message單元是否有消息用于該控制。

　　定義消息的方法如下：

　　Const

　　WM_MYFIRSTMESSAGE=WM_USER+0;

　　WM_MYSECONDMESSAGE=WM_USER+1;

　�、� 聲明消息記錄類型

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

　　聲明消息記錄類型要遵循下列規(guī)則

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

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

　　● 將接著的兩個(gè)字節(jié)定義為word 以響應(yīng)word大小的參數(shù)

　　● 將接著的四個(gè)字節(jié)與long參數(shù)匹配

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

　　下面是TWMMouse的定義

　　type

　　TWMMouse=record

　　Msg: TMsgParam; { 第一個(gè)是消息ID }

　　Keys: Word; { wParam }

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

　　o: (

　　Xpos: Integer; { 或者以x，y座標(biāo) }

　　Ypos: Integer);

　　1: (

　　Pos : TPoint; { 或者作為單個(gè)點(diǎn) }

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

　　end;

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

　�、� 聲明新的消息處理方法

　　有兩類環(huán)境需要你定義新的消息處理方法：

　　● 自定義新部件需要處理沒有被標(biāo)準(zhǔn)部件處理的Windows消息

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

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

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

　　● 將方法做成過程

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

　　● 傳遞一個(gè)命名為Message的var參數(shù)，類型為消息記錄類型

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

　　● 調(diào)用繼承的消息方法

　　下面是用于用戶自定義消息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;