Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#13

AW: Fehlermeldung "Nicht genügend Timer verfügbar"

  Alt 14. Jul 2023, 09:02
Nur so 'ne
Lass den Timer mit einer höheren Frequenz (z.B. 100ms) durchlaufen. Im AfterScroll merkst du dir den aktuellen TimeStamp mit TStopWatch.StartNew . Im Timer-Event prüfst du dann mit TStopWatch.ElapsedMilliseconds , ob eine ausreichend lange Zeit nach dem letzten Scroll vergangen ist und falls ja reagierst du entsprechend.

Vorteil: Der Timer wird nur einmal erzeugt und freigegeben.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat