delphi延时函数详细说明

procedure   Delay(msec:integer); 
//延时函数，msec   为毫秒(千分之1秒) 
var 
FirstTickCount   :   real; 
begin 
  FirstTickCount   :=   GetTickCount(); 
  FirstTickCount   :=   FirstTickCount   +   msec; 

  While   FirstTickCount   >     GetTickCount()   do 
      Application.HandleMessage;   //关键在这里 

end; 

delay   (5000);   //   延时   5   秒

参见：http://blog.csdn.net/shao882

详见：100脚本网

 

转载于:https://www.cnblogs.com/python001/p/4307256.html