Timer in einer Unit

[BadenPower]

Der 2.Parameter in hathor's Beispiel bei SetTimer() sollte auch nicht 1, sondern 0 sein.
Denn wenn ein Timer mit der ID = 1 exestieren würde, dann würde dieser mit den neuen Werten überschrieben werden und kein neuer Timer erzeugt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
id1 := SetTimer(0, 0, 2000, @MyTimer); Memo1.Lines.Add('id1:' + INTTOSTR(id1)); //2000msec
id2 := SetTimer(0, id1, 4000, @MyTimer); Memo1.Lines.Add('id2:' + INTTOSTR(id2)); //4000msec
id3 := SetTimer(0, id2, 6000, @MyTimer); Memo1.Lines.Add('id3:' + INTTOSTR(id3)); //6000msec
end;

In diesem Beispiel wird nur 1 Timer erzeugt, welcher am Schluß einen Interval von 6000 hat.

Bei Hwnd = 0 also immer 0 als 2. Parameter, denn nur dann ist auch gwährleistet, dass auch tatsächlich ein neuer Timer erstellt wird, ausser man willnatürlich einen bestehenden Timer mit neuem Interval belegen.