Delphi 中怎么讓程序暫停一會兒?


delphi 中有沒有函數讓執行中的方法暫停一段時間, 比如2 秒種?

謝謝

6 个解决方案

#1


試一試用sleep(2000);

#2


來遲了

#3


^

#4


or SleepEx .......

#5


sleep

#6


PROCEDURE PDelay(ms:Integer);
VAR FirstTickCount:longint;
BEGIN
  FirstTickCount:=GetTickCount;
  REPEAT
    Application.ProcessMessages;
  UNTIL ((GetTickCount-FirstTickCount) >= Longint(ms));
END;

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com