精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>消息处理>>Re:怎么给我的函数发一个消息?

主题:Re:怎么给我的函数发一个消息?
发信人: soaringbird(DownwithJapan)
整理人: teleme(2001-07-30 17:42:37), 站内信件
【 在 sysbase 的大作中提到:】
:...
: procedure MyMessage(var msg: TMessage); message WM_USER;
:.....
:procedure TForm1.MyMessage(var msg: TMessage);
:begin
:
:......
 ShowMessage(PChar(msg.LParam));


----
我强烈地憎恨所有的日本鬼子,我强烈地厌恶所有的哈日族分子!
打倒日本帝国主义! 

[关闭][返回]