• Delphi中三种延时方法

    • 1)TTtimer控件

        TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的,并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Interval属性,我们可以很方便的产生一些简单的定时事件。

      2)Sleep函数

        Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds),暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如:

      sleep(1000);        //延迟1000毫秒

      Sleep会引起程序停滞,如果你延迟的时间较长的话,你的程序将不能够响应延时期间的发生的其他消息,所以程序看起来好像暂时死机。

      3)GetTickCount函数

        在主程序中延时,为了达到延时和响应消息这两个目的,GetTickCount()构成的循环就是一种广为流传的方法。例如:

      procedure Delay(MSecs: Longint);
      //延时函数,MSecs单位为毫秒(千分之1秒)
      var
        FirstTickCount, Now: Longint;
      begin
        FirstTickCount := GetTickCount();
        repeat
          Application.ProcessMessages;
          Now := GetTickCount();
        until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
      end;

      可见,相对而言,Sleep的精度最高,尤其是在10ms以内的延时,只有sleep函数才能够做到。TTimer控件的定时精度最差,而且稳定性不好,波动很大。GetTickCount函数所能实现的最短延时为15ms左右,稳定性相对TTimer要好一些。

      标签: none

    • 当前暂无评论 »

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号