- WM_TIMER : // Hier werden alle benutzten Timer behandelt
- begin
- if wParam = FPS_TIMER then //Wenn WM_TIMER vom FPS-Timer ausgelöst wurde, dann...
- begin
- FPSCount :=Round(FPSCount * 1000/FPS_INTERVAL); // FPS berechnen...
- SetWindowText(h_Wnd, PChar(WND_TITLE + ' [' + IntToStr(FPSCount) + ' FPS]')); //... und ausgeben!
- FPSCount := 0;
- Result := 0;
- end
- //Weitere Timer einfach dadrunter
- else if wParam == TEST_TIMER then //Wenn von TEST_TIMER ausgelöst, dann...
- begin
- //...tu irgendwas...
- end;
- end;