Delay in Delphi
Delphi-Quellcode:
[edit=toms]Code formatiert. Mfg, toms[/edit]
procedure Delay(msec: Longint);
var start, stop: Longint; begin start := GetTickCount; repeat stop := GetTickCount; Application.ProcessMessages; until (stop - start) >= msec; end; |
Re: Delay in Delphi
Eine Resssourcenschonendere Variante von negaH: http://www.delphipraxis.net/internal...ect.php?t=7355
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:15 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