一个超级简单的问题!!顶者有分!!!
有个窗体消息的响应函数
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
很是郁闷,请问这是为什么?谢谢。
顶者有分。