如何在程序运行时,设置暂停几秒......给你100分?

cjmo 2002-05-12 04:19:19
如何在程序运行时,设置暂停几秒
...全文
101 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ahuige 2002-05-12
  • 打赏
  • 举报
回复
我知道,你可以用空循环来延时,不过时间的长短要用自己的机子来试才行了。
for i:=0 to 100000000 do;
mezw 2002-05-12
  • 打赏
  • 举报
回复
同意
mingyeh 2002-05-12
  • 打赏
  • 举报
回复
Sleep();
东方小黑 2002-05-12
  • 打赏
  • 举报
回复
sleep() //里面是毫秒
kmask 2002-05-12
  • 打赏
  • 举报
回复
procedure wait(const msec:word);
var
start:longword;
begin
start:=gettickcount;
while (gettickcount-start)<msec do
application.ProcessMessages;
end;

以上的过程直接调用即可,msec:毫秒

最好不要用SLEEP,因为程序将睡的雷打不动,无法对消息相应。或许会引起灾难性的后果
smhpnuaa 2002-05-12
  • 打赏
  • 举报
回复
sleep(1000)
Bellamy 2002-05-12
  • 打赏
  • 举报
回复
应该可以啦!
popyyb 2002-05-12
  • 打赏
  • 举报
回复
sleep最好用在线程中
taxi 2002-05-12
  • 打赏
  • 举报
回复
sleep(2000); //停两秒

5,388

社区成员

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

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