Ich erstelle einen Timer über MMSystem
Delphi-Quellcode:
procedure TimerProc(wTimerID: DWORD; Msg: DWORD;
dwUser: longint;
dw1: longint;
dw2: longint); stdcall;
begin
PostMessage(RenderHandle, MyTimerMessage, dw1, dw2);
end;
Delphi-Quellcode:
RenderHandle := Classes.AllocateHWnd(RenderProc);
TimerID := timeSetEvent(25, 300, @TimerProc, RenderHandle, TIME_PERIODIC);
Delphi-Quellcode:
procedure RenderProc(var Msg: TMessage);
begin
blabla..;
end;
In Xp feuert der Timer richtig ab..
Unter Win7 geht so gut wie gar nichts.
System ist schnell genug daran liegt es nicht.
Sieht so aus das mein Event in der RenderProc nicht richtig ankommt.
Die Fenster scheinen das irgendwie zu blocken.
Jemand ne ahnung was das sein könnte?
EDIT:
Es liegt an der Oberfläsche von Win7.
Sobald ich die Visuellen Style ausschalte funktioniert das Event wieder. Was soll denn der Mist jetzt.
Gibt es eine alternative die Funktioniert?
gruss Emil