请问delphi中有没延时的函数？就是能延时一段时间再触发某一事件。谢

Question

请问delphi中有没延时的函数？就是能延时一段时间再触发某一事件。谢

Answer 1

呵呵，sleep让计算机睡觉还可以用api设一个定时器，，

Answer 2

我的延时函数
procedure Delay(minisec: integer); //毫秒为单位
var
  endtime: integer;
begin
  endtime := GetTickCount() + minisec;
  repeat
    Application.ProcessMessages();
  until endtime < GetTickCount();
end;

Answer 3

同意楼上的，我也建议使用Application.ProcessMessages();

Answer 4

Sleep和GetTickCount函数都可以实现延时，
而你延时后触发另一事件，我想得用Timer控件应该方便一点。
所以支持 》小兵

Answer 5

只是延时就
procedure Delay(minisec: integer); //毫秒为单位
var
  endtime: integer;
begin
  endtime := GetTickCount + minisec;
  repeat
    Application.ProcessMessages;
／／小小改进，可以节省CPU资源
   SLeep（1）；
  until endtime < GetTickCount;
end;延时后触发另一事件的确是Timer好