|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: frage zu TTimer
1. Feb 2006, 19:32
Einen Timer zu verwenden ist nicht sehr passend hier. Machs halt so:
Delphi-Quellcode:
procedure Delay(Time: Cardinal);
var start: Cardinal;
begin
start:=GetTickCount;
repeat Application.ProcessMessages until GetTickCount>=start+time;
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|