AW: Timer in einer Unit
@Popov
Nein, so ist es nicht ganz:
Delphi-Quellcode:
Nach Aufruf von
var
LTimerID: UINT_PTR; begin LTimerID := 1; LTimerID := SetTimer( AHandle, LTimerID, 1000, @TimerProc ); end;
Delphi-Quellcode:
ist
SetTimer
Delphi-Quellcode:
immer noch 1.
LTimerID
Jetzt ohne Handle:
Delphi-Quellcode:
Nach dem Aufruf von
var
LTimerID: UINT_PTR; begin LTimerID := 1; LTimerID := SetTimer( 0, LTimerID, 1000, @TimerProc ); end;
Delphi-Quellcode:
bekommen wir eine völlig andere TimerID zurück - es sei denn, es gibt schon einen Timer mit der TimerID 1, dann wird dieser auf das neue Intervall gesetzt. Wenn wir Pech haben funken wir einem anderen Timer dazwischen. Darum soll man hier zwingend 0 übergeben, wenn man einen neuen Timer anlegen will und keinen vorhandenen ändern.
SetTimer
Das steht auch alles so in der Doku. |
AW: Timer in einer Unit
...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; |
AW: Timer in einer Unit
@hathor
Vorausgesetzt dass
Delphi-Quellcode:
ungleich 0 ist, ist
wnd
Delphi-Quellcode:
überflüssig, denn der wird immer den Wert 4 haben (oder 0 wenn die Erstellung des Timers fehlgeschlagen ist).
hwndTimer
|
AW: Timer in einer Unit
@Sir Rufo:
Das stimmt nicht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec Memo1.Lines.Add(INTTOSTR(hwndTimer)); hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec Memo1.Lines.Add(INTTOSTR(hwndTimer)); hwndTimer := SetTimer(wnd,IDC_TIMER,1000,nil); // 1000 msec Memo1.Lines.Add(INTTOSTR(hwndTimer)); //hwndTimer - Werte bei mir: //7187 //7186 //7185 end; |
AW: Timer in einer Unit
Zitat:
Delphi-Quellcode:
mal mit postest (und ob das auch ein gültiges Fenster-Handle ist, denn ansonsten ist das so wie ich es gesagt habe und in der Doku steht).
wnd
Ist das so schwer zu begreifen? Diese SetTimer-Funktion reagiert abhängig davon ob du ein Fenster-Handle übergibst oder nicht. Ohne Fenster-Handle bekommst du eine TimerID zugewiesen. Die übergebene TimerID sollte aber 0 (in Worten Null, Zero, Nada, nix, ...) sein, wenn du einen neuen Timer haben möchtest. |
AW: Timer in einer Unit
Wenn Du SetTimer() mit einem Handle aufrufst, dann ist der Rückgabewert irgendein Wert. Diesen Wert solltest Du aber nicht für KillTimer() benutzen, sondern den, welchen Du im 2. Parameter angegeben hast.
Ist kein Handle bei SetTimer() angegeben, dann ist der Rückgabewert der Funktion gleich dem Wert, welchen Du für die KillTimer()-Funktion benötigst. |
AW: Timer in einer Unit
Also mich wundert vor allem wieso die TimerProc hier in allen Posts nicht der Doku entspricht. Ich würde mal sagen die Beispiele sorgen alle für einen fehlerhaften Stack...
Denn die bekommt eigentlich noch Parameter und da das stdcall ist, muss die aufgerufene Prozedur auch die Parameter aufräumen (tut es aber nicht, weil sie nix davon weiß): https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx Korrekt sieht die so aus:
Delphi-Quellcode:
Und dann hat man auch die ID des Timers...
procedure OnTimer(hwnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD); stdcall;
begin ... |
AW: Timer in einer Unit
Zitat:
|
AW: Timer in einer Unit
Zitat:
Wozu auch, es steht doch in der MSDN-Doku das drin, was ich gepostet habe und dies deckt sich mit dem was Deine Rückgabewerte sagen. Und den Rückgabewert von SetTimer mit Handle braucht man ja gar nicht, da man ja schon nIDEvent sowiso hat. Zitat:
|
AW: Timer in einer Unit
Wer als Anfänger auf diesen Thread kommt, wird am Ende völlig verwirrt sein.
Abschliessend Beispiele, die bei mir funktionieren - Console(Memo1-Befehle durch WriteLn ersetzen) + VCL - (WIN8.1, XE7):
Delphi-Quellcode:
Code wegen #51 korrigiert.
procedure MyTimer(hWnd: HWND; uMsg: Integer; idEvent: Integer; dwTime: Integer); stdcall;
begin Form1.Memo1.Lines.Add('Timer Event: '+ INTTOSTR(idEvent)); WinApi.Windows.Beep(1800,50); end; // global var id1, id2, id3 : DWORD; procedure TForm1.Button11Click(Sender: TObject); begin if id1=0 then id1 := SetTimer(0, 1, 1000, @MyTimer); Memo1.Lines.Add(INTTOSTR(id1)); //1000msec if id2=0 then id2 := SetTimer(0, 1, 2000, @MyTimer); Memo1.Lines.Add(INTTOSTR(id2)); //2000msec if id3=0 then id3 := SetTimer(0, 1, 3000, @MyTimer); Memo1.Lines.Add(INTTOSTR(id3)); //3000msec end; procedure TForm1.Button12Click(Sender: TObject); begin KillTimer(0, id1); Memo1.Lines.Add(INTTOSTR(id1)); id1:=0; KillTimer(0, id2); Memo1.Lines.Add(INTTOSTR(id2)); id2:=0; KillTimer(0, id3); Memo1.Lines.Add(INTTOSTR(id3)); id3:=0; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz