從上面的程序可以看到，Delphi的自定義消息處理功能的實現也是十分簡單的，首先在Form類的Private定義中加入自定義消息處理函數的定義，定義的描述如下：
procedure UserPro(Var Message:
TMessage):message WindowsMessage
其中UserPro是用戶自定義消息處理函數的名稱，
WindowsMessage是Windows消息常量或自定義消息常量。
然後在程序中加入消息處理函數，函數的一般格式如下：
Procedure UserClass.UserPro(Var Message:TMessage);
var
//加入定義
Begin
//加入程序語句
End;
其中UserClass是封裝自定義消息處理函數的類的名稱。
最後，Delphi的自定義消息處理函數要涉及到Windows的消息的結構，在這裡我就不多說了，大家可以參考Windows API幫助和Delphi的相關幫助信息。相信大家如果掌握了Delphi的自定義消息處理函數，一定可以編寫出象VB一樣簡潔，象C++一樣功能強大的程序來的。
