⑵ 定義處理過程類型

　　一旦你決定產生事件，就要定義事件如何被處理，這就是要決定事件處理過程的類型。在大多數情況下，定義的事件處理過程的類型是簡單的通知類型(TNotifyEvent)和已定義的事件類型。

　　通知事件只是告訴你特定的事件發生了，而沒有描述什么時候和什么地方。通知事件使用時只帶一個TObject類型的參數，該參數是Sender。然而所有通知事件的處理過程都知道是什么樣的事件發生和發生在那個部件。例如：Click事件是通知類型。當編寫Click事件的處理過程時，你知道的是Click事件發生和哪個部件被點按了。通知事件是單向過程。沒有提供反饋機制。

　　在某些情況下，只知道什么事件發生和發生在那個部件是不夠的。如果按鍵事件發生，事件處理過程往往要知道用戶按了哪個鍵。在這種情況下，需要事件處理過程包含有關事件的必要信息的參數。如果事件產生是為了響應消息，那么傳遞給事件的參數最好是直接來自消息參數。

　　因為所有事件處理過程都是過程，所以從事件處理過程中返回信息的唯一方法是通過var參數。自定義部件可以用這些信息決定在用戶事件處理過程執行后是否和怎樣處理事件。

　　例如，所有的擊鍵事件(OnKeyDown、OnKeyUp和OnKeyPressed)通過名為key的var參數傳遞鍵值。為了使應用程序看見包含在事件中的不同的鍵，事件處理過程可以改變key變量值。

　　⑶ 聲明事件

　　一旦你決定了事件處理過程的類型，你就要準備聲明事件的方法指針和屬性。為了讓用戶易于理解事件的功能，應當給事件一個有意義的名字，而且還要與部件中相似的屬性的名稱保持一致。

　　Delphi中所有標準事件的名稱都以“On”開頭。這只是出于方便，編譯器并不強制它。Object Inspector是看屬性類型來決定屬性是否是事件，所有的方法指針屬性都被看作事件，并出現在事件頁中。

　　⑷ 調用事件

　　一般說來，最好將調用集中在事件上。就是說在部件中創建一個虛方法來調用用戶的事件處理過程和提供任何缺省處理。當調用事件時，應考慮以下兩點：

　　● 必須允許空事件

　　● 用戶能覆蓋缺省處理

　　不能允許使空事件處理過程產生錯誤的情況出現。就是說，自定義部件的正常功能不能依賴來自用戶事件處理過程的響應。實際上，空事件處理過程應當產生與無事件處理過程一樣的結果。

　　部件不應當要求用戶以特殊方式使用它們。既然一個空事件處理過程應當與無事件處理過程一樣動作，那么調用用戶事件處理過程的代碼應當象這樣：

　　if Assigned(OnClick) then OnClick(Self);

　　{ 執行缺省處理 }

　　而不應該有這樣的代碼：

　　if Assigned(OnClick) then

　　OnClick(Self)

　　else

　　…; { 執行缺省處理 }