[讨论]delphi里除Timer和Sleep,还有没别的计时方式?

Question

如题如题
其实是想在Form.Create的过程里一次过等待5秒,但是又不想它失去响应,用application.pXX又会降低精确度,不知还有啥好办法.

Answer 1

GetTickCount -- 返回Win系统启动以来经过的毫秒数. 用它就计算可以了. 可以加Application.ProcessMessages;处理其他消息, 并不影响精确度(因为GetTickCount返回Win系统启动以来经过的毫秒数)具体用法在你的另一贴已回

Answer 2

procedure Form1.Create(Sender:Tobject);
var
  i : Integer;
begin
  i := GetTickCount;
  repeat Application.ProcessMessages;
    
  until (i > GetTickCount - 5000);
end;