Timer in einer Unit

[hathor]

...oder mit Konstante:

Delphi-Quellcode:

//global
const IDC_TIMER = 4;
var wnd: HWND;
    hwndTimer : DWORD;

//in beliebigen Prozeduren
hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec
...
KillTimer(wnd, hwndTimer);
hwndTimer := 0;
...
function WndProc(wnd: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM):
  LRESULT; stdcall;
begin
case uMsg of
WM_TIMER:
      begin
 //  tu was...
      end;   
end;