Timer in einer Unit

[Sir Rufo]

@hathor

Bitte beschreibe dem nun vollends verwirrtem Anwender was er von deinem Code-Schnipsel erwarten kann, wenn er 2x den Button1 drückt und dann 1x den Button2.

Aber evtl. solltest du es vorher ausprobieren, wundern und dann beschreiben, denn das Ergebnis wird dich überraschen :roll:

BTW: Du solltest auch noch die Typen der Variablen und Argumente korrigieren

@BadenPower

Du hast natürlich Recht. Wenn ein Handle übergeben wird, dann ist der Rückgabewert im Erfolgsfall größer 0. Ich habe zwar gesehen, dass der Rückgabewert dem Argument nIDEvent entspricht, allerdings darf man sich darauf nicht verlassen, weil die Dokumentation es nicht zusichert.

[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.

[HolgerX]

So, jetzt will ich auch noch ein bisschen verwirren..

Was passiert, wenn SetTimer(0, EventID,.. eine bereits durch ein anderes Programm verwendete EventID benutzt?

Wenn es sich bei den Timern um globale Timer handelt, sollte dann dem anderen Programm der Timer 'geklaut' werden... :o

Wenn dem so ist, dann sollte man SetTimer grundsätzlich mit einem gültigen Handle aufrufen, um zu verhindern, das der Timer entwendet wird.

[himitsu]

Timmer sollten nur Programmintern gelten ... ich vermtute mal die Timer sind ohne Fenster an den Thread gekoppelt.

Mit HWND sind sie nur innerhalb des Fensters eindeutig.

[Sir Rufo]

Zitat:

Zitat von HolgerX (Beitrag 1294500)

So, jetzt will ich auch noch ein bisschen verwirren..

Was passiert, wenn SetTimer(0, EventID,.. eine bereits durch ein anderes Programm verwendete EventID benutzt?

Wenn es sich bei den Timern um globale Timer handelt, sollte dann dem anderen Programm der Timer 'geklaut' werden... :o

Wenn dem so ist, dann sollte man SetTimer grundsätzlich mit einem gültigen Handle aufrufen, um zu verhindern, das der Timer entwendet wird.

Wenn du einen Timer erzeugen willst und kein Handle übergeben möchtest, dann musst du wie folgt vorgehen:

Delphi-Quellcode:

var
  nIDEvent : UINT_PTR = 0; // wir starten OHNE eine TimerID

procedure StartMyTimer;
begin
  nIDEvent := SetTimer( 
    { KEIN HANDLE } 0,
    { TimerID } nIDEvent,
    { Interval } 1000,
    { TimerProc } @MyTimerProc );
end;

procedure StopMyTimer;
begin
  if KillTimer(
    { KEIN HANDLE } 0,
    { TimerID } nIDEvent )
  then
    nIDEvent := 0;
end;

Und schon wird da auch kein Timer von wo auch immer geklaut ... man muss es nur richtig machen

[himitsu]

Zitat:

Zitat von Sir Rufo (Beitrag 1294518)

Und schon wird da auch kein Timer von wo auch immer geklaut ... man muss es nur richtig machen

Und wenn man StartMyTimer nochmals aufruft, wenn der Timer aktiv ist, dann wird die ID übergeben, der selbe Timer überschrieben und kein Neuer erstellt.

Aber dennoch, auch hier wird ein WM_TIMER ausgelöst und an den Thread geschickt, denn diese Message wird für die Synchronisation benutzt, da das Event im selben Thread ausgeführt wird, wo der Timer erstellt wurde und das WM_TIMER dient hierbei als Auslöser für den Callback, durch DispatchMessage.