有没有办法让 隐藏的label 在整段代码执行完之前,先显示出来? 有段很简单的代码,我一开始先把Label1隐藏起来,
点击登录后,我希望先把Label1显示出来,给个提示说"正在连接数据库"等等结果我的代码中,会先把下面的代码显示完后,Label1才显示出来,问该怎么改程序呢? Label1.Visible:=true;
try
//打开数据库
.......
except
showmessage(' 无法连接数据库');
end;
点击登录后,我希望先把Label1显示出来,给个提示说"正在连接数据库"等等结果我的代码中,会先把下面的代码显示完后,Label1才显示出来,问该怎么改程序呢? Label1.Visible:=true;
try
//打开数据库
.......
except
showmessage(' 无法连接数据库');
end;
Application.ProcessMessages;
try
//打开数据库
.......
except
showmessage(' 无法连接数据库');
end;
Repaint; //添加
begin
Label1.Visible:= true;
Repaint;
Sleep(10000);
Application.ProcessMessages;
Label1.Visible:= false;
Repaint;
end;