关于在delphi中的消息传递, 如保在delphik 写消息,如何定义,有这方面的文章吗,请提供一下谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 const WM_MYMESSAGE = WM_USER + 1001; //这样就自己定义了一个消息发送消息可以用 SendMessage, PostMessage const WM_MYMSG = WM_USER + 100; .... private procedure MyMsg(var Msg: TMessage); message WM_MYMSG; ....procedure TForm1.MyMsg(var Msg: TMessage);begin ShowMessage('haha! received a default message');end;procedure TForm1.Button1Click(Sender: TObject);begin SendMessage(Form1.Handle, WM_MYMSG, 0, 0);end; .....简单实例, 希望对你有帮助 最后一步了,三个条件同时满足时显示... 如何让TreeView的每个节点保存一个字符串? CSDN的严重BUG 为什么有的字符串函数可以用,有的就不可以用呢? 怎么返回查询数据库对应字段的值,再线等待! 散散分吧,解决了几个头疼的问题,程序今天终于还是通了。 放点分,广州的朋友顺便有一个小问题! 招聘2位高级程序员:开发过OA系统并有丰富经验的,有意者留下联系地址,最好做个自我简介! 高手请进! 如何在程序中查询到服务器的机器名 DBconsts.pas问题 查询出多个记录怎么送入combobox(在线等候,急!!!)
WM_MYMESSAGE = WM_USER + 1001; //这样就自己定义了一个消息发送消息可以用
SendMessage, PostMessage
WM_MYMSG = WM_USER + 100; ....
private
procedure MyMsg(var Msg: TMessage); message WM_MYMSG; ....procedure TForm1.MyMsg(var Msg: TMessage);
begin
ShowMessage('haha! received a default message');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Form1.Handle, WM_MYMSG, 0, 0);
end; .....简单实例, 希望对你有帮助