摘要: 1.首先放置TApplicationEvents控件。2.procedure TF_Main.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin case Msg.Message of WM_USER + 128: Begin case Msg.wParam of 1: F_Main. Button129Click(F_Main.Button129); 2: XXXXX; end; end;End;3.发送消息调用PostMessage(Application.Handle, WM_USER + 128. 阅读全文
posted @ 2010-09-20 14:59 delphi中间件 阅读(195) 评论(0) 推荐(0) 编辑