Forum: Programmieren allgemein
Delphi
by dummzeuch,
1. Okt 2018
Hier ist noch mein etwas ausführlicherer Blogpost (von Samstag) dazu:
https://blog.dummzeuch.de/2018/09/29/calling-application-processmessages-in-a-delphi-program/
Forum: Programmieren allgemein
Delphi
by dummzeuch,
28. Sep 2018
Eine Möglichkeit wäre, vor einem Aufruf von Application.ProcessMessages zu prüfen, wie lange der letzte Aufruf her ist. Erst dann, wenn das vor mehr als z.B. 100 ms war, wird dann Application.ProcessMessages aufgerufen:
var
LastCall: Int64;
ThisCall: Int64;
ThisCall := GetTickCount;
if (ThisCall - LastCall > 100) or (LastCall > ThisCall) then begin