您现在的位置:首页 >> API >> API >> 内容

Delphi用API设置定时器SetTimer

时间:2011/9/3 14:52:18 点击:

  核心提示:是有的时候我们不希望使用TTimer来做定时器,比如在写一个控件的时候,当然内部使用的组件越少越好,以避免发生兼容性的问题。使用API来做定时器是很简单的,主要就是一个SetTimer函数和KillT...
是有的时候我们不希望使用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,以便和其他的定时器区别开,第三个参数是时间间隔,
以毫秒为单位。
第四个参数是一个回调函数,每次定时的时间一到,
这个定时器便会通过第四个参数所传过来的地址去找到这个函数并执行。

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号