face="宋體" lang="ZH-CN" size="3">事件處理過程是可選的</p>
<p>　</p>
<p>　?、?lt;/font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">事件是方法指針</p>
<p>　　</font><font face="Arial" size="3">Delphi</font><font face="宋體" lang="ZH-CN"
size="3">使用方法指針實現(xiàn)事件。一個方法指針是指向特定對象實例的特定方法的特定指針。作為部件編寫者，能將方法指針作為一種容器。你的代碼一發(fā)現(xiàn)事情發(fā)生，就調用由用戶定義的方法?！　?lt;/p>
<p>　　方法指針的工作方式就象其它的過程類型，但它們保持一個隱含的指向對象實例的指針。所有的控制都繼承了一個名為</font><font
face="Arial" size="3">Click</font><font face="宋體" lang="ZH-CN" size="3">的方法，以處理</font><font
face="Arial" size="3">Click</font><font face="宋體" lang="ZH-CN" size="3">事件。</font><font
face="Arial" size="3">Click</font><font face="宋體" lang="ZH-CN" size="3">方法調用用戶的</font><font
face="Arial" size="3">Click</font><font face="宋體" lang="ZH-CN" size="3">事件處理過程。</p>
<p>　</p>
<p>　　</font><font face="Arial" size="3">procedure TControl.Click;</p>
<p>begin</p>
<p>if Assigned(OnClick ) then OnClick( Self );</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">如果用戶給</font><font
face="Arial" size="3">Control</font><font face="宋體" lang="ZH-CN" size="3">的</font><font
face="Arial" size="3">OnClick</font><font face="宋體" lang="ZH-CN" size="3">事件賦了處理過程</font><font
face="Arial" size="3">(Handle)</font><font face="宋體" lang="ZH-CN" size="3">，那鼠標點按</font><font
face="Arial" size="3">Control</font><font face="宋體" lang="ZH-CN" size="3">時將導致方法被調用。</p>
<p>　　⑵</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">事件是屬性</p>
<p>　　部件采用屬性的形式實現(xiàn)事件。不象大多數(shù)其它屬性，事件不使用方法來使實現(xiàn)</font><font
face="Arial" size="3">read</font><font face="宋體" lang="ZH-CN" size="3">和</font><font
face="Arial" size="3">write</font><font face="宋體" lang="ZH-CN" size="3">部分。事件屬性使用了相同類型的私有對象域作為屬性。按約定域名在屬性名前加“</font><font
face="Arial" size="3">F</font><font face="宋體" lang="ZH-CN" size="3">”。例如</font><font
face="Arial" size="3">OnClick</font><font face="宋體" lang="ZH-CN" size="3">方法的指針，存在</font><font
face="Arial" size="3">TNotifyEvent</font><font face="宋體" lang="ZH-CN" size="3">類型</font><font
face="Arial" size="3">FOnClick</font><font face="宋體" lang="ZH-CN" size="3">域中。</font><font
face="Arial" size="3">OnClick</font><font face="宋體" lang="ZH-CN" size="3">事件屬性的聲明如下：</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p>type</p>
<p>TControl=class ( TComponent )</p>
<p>private</p>
<p>FOnClick: TNofiFyEvent; { </font><font face="宋體" lang="ZH-CN" size="3">聲明保存方法指針的域</font><font
size="3"> </font><font face="Arial" size="3">}</p>
<p>protected</p>
<p>property OnClick: TNotifyEvent read FOnClick write FOnClick;</p>
<p>end; </p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　象其它類型的屬性一樣，你能在運行時設置和改變事件的值。將事件做成屬性的主要好處是部件用戶能在設計時使用</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">設置事件處理過程。</p>
<p>　?、?lt;/font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">事件處理過程類型</p>
<p>　　因為一個事件是指向事件處理過程的指針，因此事件屬性必須是方法指針類型，被用作事件處理過程的代碼，必須是相應的對象的方法。</p>
<p>　　所有的事件方法都是過程。為了與所給類型的事件兼容，一個事件處理過程必須有相同數(shù)目和相同類型的相同順序的參數(shù)。</font><font
face="Arial" size="3">Delphi</font><font face="宋體" lang="ZH-CN" size="3">定義了所有標準事件處理過程的方法類型，當你創(chuàng)建自己的事件時，你能使用已有的事件類型，或創(chuàng)建新的。雖然不能用函數(shù)做事件處理過程，但可以用</font><font
face="Arial" size="3">var</font><font face="宋體" lang="ZH-CN" size="3">參數(shù)得到返回信息。</p>
<p>　　在事件處理過程中傳遞</font><font face="Arial" size="3">var</font><font
face="宋體" lang="ZH-CN" size="3">參數(shù)的典型例子是</font><font face="Arial"
size="3">TKeyPressEvent</font><font face="宋體" lang="ZH-CN" size="3">類型的</font><font
face="Arial" size="3">KeyPressed</font><font face="宋體" lang="ZH-CN" size="3">事件。</font><font
face="Arial" size="3">TKeyPressEvent</font><font face="宋體" lang="ZH-CN" size="3">定義中含有兩個參數(shù)。一個指示哪個對象產(chǎn)生該事件。另一個指示那個鍵按下：</p>
<p>　</p>
<p>　　</font><font face="Arial" size="3">type</p>
<p>TKeyPressEvent=procedure( Sender: TObject; var key: char) of Object;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">通常</font><font face="Arial"
size="3">key</font><font face="宋體" lang="ZH-CN" size="3">參數(shù)包含用戶按下鍵的字符。在某些情況下，部件的用戶可能想改變字符值。例如在編輯器中強制所有字符為大寫，在這種情況下，用戶能定義下列的事件處理過程：</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">procedure
TForml.EditlKeyPressed( Sender: TObject; var key: char);</p>
<p>begin</p>
<p>key := Upcase( key );</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">也可使用</font><font face="Arial"
size="3">var</font><font face="宋體" lang="ZH-CN" size="3">參數(shù)讓用戶覆蓋缺省的處理。</p>
<p>　　⑷</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">事件處理過程是可選的</p>
<p>　　在為部件創(chuàng)建事件時要記住部件用戶可能并不編寫該事件的處理過程。這意味著你的部件不能因為部件用戶沒有編寫處理代碼而出錯。這種事件處理過程的可選性有兩個方面：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">①</font><font size="3"> </font><font face="宋體"
lang="ZH-CN" size="3">部件用戶并非不得不處理事件</font><font face="Arial"
size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">事件總是不斷地發(fā)生在</font><font
face="Arial" size="3">Windows</font><font face="宋體" lang="ZH-CN" size="3">應用程序中。例如，在部件上方移動鼠標就引起</font><font
face="Arial" size="3">Windows</font><font face="宋體" lang="ZH-CN" size="3">發(fā)送大量的</font><font
face="Arial" size="3">Mouse-Move</font><font face="宋體" lang="ZH-CN" size="3">消息給部件，部件將鼠標消息傳給</font><font
face="Arial" size="3">OnMouseMove</font><font face="宋體" lang="ZH-CN" size="3">事件。在大多數(shù)情況下，部件用戶不需要關心</font><font
face="Arial" size="3">MouseMove</font><font face="宋體" lang="ZH-CN" size="3">事件，這不會產(chǎn)生問題，因為部件不依賴鼠標事件的處理過程。同樣，自定義部件也不能依賴用戶的事件處理過程。</p>
<p>　</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">②</font><font
size="3"> </font><font face="宋體" lang="ZH-CN" size="3">部件用戶能在事件處理過程寫任意的代碼</p>
<p>　　一般說來，對用戶在事件處理過程中的代碼沒有限制。</font><font
face="Arial" size="3">Delphi</font><font face="宋體" lang="ZH-CN" size="3">部件庫的部件都支持這種方式以使所寫代碼產(chǎn)生錯誤的可能性最小。顯然，不能防止用戶代碼出現(xiàn)邏輯錯誤。</p>
<p>　　</font><font face="Arial" size="3">2. </font><font face="宋體" lang="ZH-CN"
size="3">怎樣實現(xiàn)標準事件</p>
<p>　　</font><font face="Arial" size="3">Delphi</font><font face="宋體" lang="ZH-CN"
size="3">帶的所有控制繼承了大多數(shù)</font><font face="Arial" size="3">Windows</font><font
face="宋體" lang="ZH-CN" size="3">事件，這些就是標準事件。盡管所有這些事件都嵌在標準控制中，但它們?nèi)笔∈?lt;/font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">，這意味著用戶無法訪問它們，當創(chuàng)建控制時，則可選擇這些事件使用戶可用。將這些標準事件嵌入自定義控制需要考慮如下：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">●</font><font size="3"> </font><font face="宋體"
lang="ZH-CN" size="3">什么是標準事件</p>
<p>　</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
size="3"> </font><font face="宋體" lang="ZH-CN" size="3">怎樣使事件可見</p>
<p>　</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
size="3"> </font><font face="宋體" lang="ZH-CN" size="3">怎樣修改標準事件處理過程</p>
<p>　</p>
<p>　?、?lt;/font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">什么是標準事件</p>
<p>　　有兩種標準事件：用于所有控制和只用于標準</font><font
face="Arial" size="3">Windows</font><font face="宋體" lang="ZH-CN" size="3">控制。</p>
<p>　　最基本的事件都定義在對象</font><font face="Arial" size="3">TControl</font><font
face="宋體" lang="ZH-CN" size="3">中。窗口控制、圖形控制和自定義控制都繼承了這些事件，下面列出用于所有控制的事件：</p>
<p>　　</font><font face="Arial" size="3">OnClick OnDragDrop OnEndDrag OnMouseMove</p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">OnDblClick
OnDragOver OnMouseDown OnMouseUp</p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</p>
<p>　　所有標準事件在</font><font face="Arial" size="3">TControl</font><font
face="宋體" lang="ZH-CN" size="3">中都定義了相應的</font><font face="Arial"
size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">動態(tài)方法，只是沒有加“</font><font
face="Arial" size="3">On</font><font face="宋體" lang="ZH-CN" size="3">”例如</font><font
face="Arial" size="3">OnClick</font><font face="宋體" lang="ZH-CN" size="3">事件調用名為</font><font
face="Arial" size="3">Click</font><font face="宋體" lang="ZH-CN" size="3">的方法。</p>
<p>　　標準控制（從</font><font face="Arial" size="3">TWinControl</font><font
face="宋體" lang="ZH-CN" size="3">繼承）具有下列事件：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">OnEnter
OnKeyDown OnkeyPress OnKeyUp OnExit</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">正如</font><font face="Arial"
size="3">TControl</font><font face="宋體" lang="ZH-CN" size="3">中的標準事件，窗口控制也有相應</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">動態(tài)方法。</p>
<p>　　⑵</font><font size="3"> </font><font face="宋體" lang="ZH-CN" size="3">怎樣使事件可見</p>
<p>　　標準事件的聲明是</font><font face="Arial" size="3">protected</font><font
face="宋體" lang="ZH-CN" size="3">，如果想使用戶在運行時或設計時能訪問它們，就需要將它們重聲明為</font><font
face="Arial" size="3">public</font><font face="宋體" lang="ZH-CN" size="3">和</font><font
size="3"> </font><font face="Arial" size="3">published</font><font face="宋體"
lang="ZH-CN" size="3">。重聲明屬性而不描述它的實現(xiàn)將繼承相同的實現(xiàn)方法，只是改變了訪問級別。例如，創(chuàng)建一個部件并使它的</font><font
face="Arial" size="3">OnClick</font><font face="宋體" lang="ZH-CN" size="3">事件出現(xiàn)在運行時，你可增加下面的部件聲明：</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font size="3"> </font><font
face="Arial" size="3">type</p>
<p>TMyControl=class(TCustomControl)</p>
<p>published</p>
<p>property OnClick; { </font><font face="宋體" lang="ZH-CN" size="3">使</font><font
face="Arial" size="3">OnClick</font><font face="宋體" lang="ZH-CN" size="3">在</font><font
face="Arial" size="3">objectinspector</font><font face="宋體" lang="ZH-CN" size="3">中可見</font><font
size="3"> </font><font face="Arial" size="3">}</p>
<p>end;</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">⑶</font><font size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">怎樣修改標準事件處理過程</p>
<p>　　如果想修改自定義部件響應某種事件的方法，可以重寫代碼并將其賦給事件。將聯(lián)接每個標準事件的方法聲明的</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">是出于慎密的考慮。通過，覆蓋實現(xiàn)方法，能修改內(nèi)部事件處理過程，通過調用繼承的方法，能保持標準事件處理過程。</p>
<p>　　調用繼承的方法的順序是很重要的。一般首先調用繼承的方法，允許用戶的事件處理過程代碼在你的定制代碼前執(zhí)行。然而也有在調用繼承的方法之前執(zhí)行自己的代碼情況出現(xiàn)。</p>
<p>　　下面是一個覆蓋</font><font face="Arial" size="3">Click</font><font
face="宋體" lang="ZH-CN" size="3">事件的例子：</p>
<p></font><font size="3">　</font><font face="Arial" size="3"></p>
<