DBR Delphi-Ecke

// Hier die effizienteste Methode mal schnell einen Timer zu erzeugen
// und wieder zu entfernen. Wenn auf diese Art gleichzeitig mehrere Timer
// erzeugt werden sollen, muss TimerId hochgezählt werden.

// Getestet mit D4 unter Win98

const TimerID: Integer = 1; // muss größer als Null sein 
 
procedure OnTimer; 
begin 
  killtimer(application.handle, TimerID); 
  beep; 
  showmessage('Zeit ist abgelaufen'); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var zeit: cardinal; 
begin 
  zeit := 1000; // Millisekunden 
  settimer(application.handle, TimerID, zeit, @OnTimer); 
end;