sleep函数的用法，大家帮我看看

sleep(5000);  
  这时间一长就好像死机了是的，在delphi中有没有好的方法让sleep交出控制权。  
  使用sleep的时候，程序还能响应其它的操作。 问题点数：20、回复次数：9Top

1 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-07-04 16:41:33 得分 8

procedure   Delay(ms   :   longint);  
  var  
        TheTime   :   LongInt;  
  begin  
        TheTime   :=   GetTickCount   +   ms;  
        while   GetTickCount   <   TheTime   do  
              Application.ProcessMessages;  
  end;Top

2 楼imho888（）回复于 2006-07-04 16:42:19 得分 1

那只能用线程Top

3 楼getit911（Windows转Linux中）回复于 2006-07-04 16:50:53 得分 3

procedure   Delay(ms   :   longint);  
  var  
  i   :   integer  
  begin  
  for   i=0   to   ms   do  
  begin  
  Application.ProcessMessages;  
  Sleep(1);  
  end;  
  end;Top

4 楼FCU（吃羊肉串居然上火,郁闷!）回复于 2006-07-04 17:14:25 得分 1

用线程，很好用的。Top

5 楼newfang（传说中的MIC）回复于 2006-07-04 18:49:02 得分 2

如果在服务器上运行，就要考虑GetTickCount的溢出问题！！Top

6 楼Blakhawk（黑鹰）回复于 2006-07-04 21:13:25 得分 1

halt机器指令Top

7 楼wudi_1982（向伴水学习|胃出血，住院中）回复于 2006-07-05 02:13:38 得分 3

一般来说，延时操作都是用一楼阿日的那种方法。。Top

8 楼shandiantianying（）回复于 2006-07-05 10:07:58 得分 0

谢谢大家我用的是一楼的那种，不过好像还是有点问题，在打开其它窗体的时候都打不开Top

9 楼oushengfen（逸帆）回复于 2006-07-06 00:23:12 得分 1

学习中....Top

相关问题

• 帖主：shandiantianying
• aiirii
• imho888
• getit911
• FCU
• newfang
• Blakhawk
• wudi_1982
• oushengfen

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载