用sleep实现不了的功能
wzyll 2003-08-19 04:52:34 大家好,我想实现如下功能:单击button1后,lable的visible属性为true并持续显示两秒钟,代码如下:
procedure tform1.button1click;
begin
label.visible:=true;
sleep(2000);
showmessage('你可以修改密码了。');
end;
但运行sleep(2000)前label并不显示,当sleep(2000)执行完后label与showmessage才同时显示。不知道什么原因,望大家指点,如能给出详细代码则更加感激不尽。谢谢!
王振亚
2003.08.19