官方QQ:  16643506

delphi用API设置定时器


Delphi中的TTimer组件对于定时器API封装的很好,直接使用非常方便直观。但是有的时候我们不希望使用TTimer来做定时器,比如在写一个控件的时候,当然内部使用的组件越少越好,以避免发生兼容性的问题。
使用API来做定时器是很简单的,主要就是一个SetTimer函数和KillTimer函数,下面是一个简单的例子:
var
i :Integer = 0;

procedure TimerProc(hwnd:HWND;uMsg,idEvent:UINT;dwTime:DWORD); stdcall;
begin
inc(i);
Form1.Caption := IntToStr(i);
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
SetTimer(Handle,10,500,@TimerProc);
end;

procedure TForm1.FormDestroy(Sender:TObject);
begin
KillTimer(Handle,10);
end;

其中SetTimer的第二个参数是这个定时器的ID,以便和其他的定时器区别开,第三个参数是时间间隔,以毫秒为单位。
第四个参数是一个回调函数,每次定时的时间一到,这个定时器便会通过第四个参数所传过来的地址去找到这个函数并执行.

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678