Delphi捕获与截获消息， 　　private 　　 { Private declarations } 　　 //在应用程序层处处理消息 　　 procedure OnAppmessage(var msg:TMsg;var handled:boolean); 　　 //重载WndProc方法，在窗口过程处处理消息 　　 procedure WndProc(var msg:TMessage);override; 　　 //自定义的消息处理过程 　　 procedure MyMessage(var msg:TMessage);message WM_MYMSG;