一个超级简单的问题!!顶者有分!!!

fayeflash 2007-04-20 03:01:58
有个窗体消息的响应函数
public
procedure ShowEvent(var msg: TMessage);message WM_USER+100;

实现如下
procedure ShowEvent(var msg: TMessage);message WM_USER+100;
begin
ShowMessage(IntToStr(GetLastError()));
Memo1.lines.add('OK');
ShowMessage(IntToStr(GetLastError()));
end;

一个按钮点击事件
begin
SendMessage(Form1.handle, WM_USER+100, 0, 0);
end;

结果是:
0
5
0
难道是说Memo1.lines.add('OK')是有错误的?但是'OK'确实加上去了。
把Memo1.lines.add('OK')去掉,结果为
0
0

很是郁闷,请问这是为什么?谢谢。
顶者有分。
...全文
1599 75 打赏 收藏 转发到动态 举报
写回复
用AI写文章
75 条回复
切换为时间正序
请发表友善的回复…
发表回复
何鲁青 2007-04-26
  • 打赏
  • 举报
回复
楼主:
第一次的输出是
0
5
0
还是
0
5
我在这里没有发现你有三个输出阿????
StarCraftPJF 2007-04-26
  • 打赏
  • 举报
回复
学习一下…………
zhoukuan0905 2007-04-26
  • 打赏
  • 举报
回复
up
zhanghua0020 2007-04-26
  • 打赏
  • 举报
回复
路过~~捡分~~ 买米~~~~
chl_seu 2007-04-25
  • 打赏
  • 举报
回复
jf
xxw19820907 2007-04-25
  • 打赏
  • 举报
回复
up
airanna 2007-04-24
  • 打赏
  • 举报
回复
帮你顶,
不过看你SHOWMESSAGE()两次,会出来0 5 0 三次提示?
brightyang 2007-04-24
  • 打赏
  • 举报
回复
帮你顶
flycatty 2007-04-23
  • 打赏
  • 举报
回复
顶~一个
markshao 2007-04-23
  • 打赏
  • 举报
回复
顶你一下
chtlovezj 2007-04-23
  • 打赏
  • 举报
回复
偷换概念
liqiang8 2007-04-23
  • 打赏
  • 举报
回复
不会.不过顶一下
fanyp2006 2007-04-23
  • 打赏
  • 举报
回复
jf
changhe37 2007-04-23
  • 打赏
  • 举报
回复
Delphi用的不多,帮顶!!!!
caryzheng 2007-04-23
  • 打赏
  • 举报
回复
顶啊
wangyueandy 2007-04-23
  • 打赏
  • 举报
回复
顶呀,真有分吗??
deansroom 2007-04-23
  • 打赏
  • 举报
回复
专门顶的!~
dovelee 2007-04-23
  • 打赏
  • 举报
回复
ding
xhmerry 2007-04-23
  • 打赏
  • 举报
回复
支持一下,顶
GAVIN_JAVA616 2007-04-23
  • 打赏
  • 举报
回复
接点分~~~
加载更多回复(55)

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧