怎么定义一个自己的定时器？

Question

请教如何写出一个自己的定时器？最好有代码。

Answer 1

1、SetTimer;
2、响应WM_TIMER消息，其中形参中(TWMTIMER)有个ID,就是你SetTimer中的ID。
3、KillTimer;

Answer 2

一个简单例子：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;