M Mike1234567890 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-24 #2 直接在类中编写指定消息的处理函数就行了 定义 procedure WM_TEST(var Msg:TMessage);message WM_TEST; WM_TES也可是自已定义的消息
