Gewollte Verzögerung mit TTimer?

[Stephan Puls]

Hallo,
<p>
ich möchte in einen Ablauf einer while-Schleife eine gewollte Verzögerung programmieren, damit der Enduser mitbekommt wie der Ablauf funktioniert. Doch komme ich mit der TTimer Komponente nicht so ganz klar, da, soweit wie ich es verstehe, eine separate procedure ausgeführt wird, doch wollte ich, dass die Schleife nicht beendet wird.<br>
Ich habe auch versucht etwas mit 'wait' anfangen zu können, doch braucht man dazu ein Event, oder so.<br>
<br>Für Anregungen und Hilfe wäre ich sehr dankbar. <br>
<br>Tschaui,<br>
Stephan

[Jens Schumann]

Hallo Stephan,<br>versuchs mal damit:<br>
<pre>
procedure Delay(Z : LongInt); // Z = Zeit in Millisekunden
var
Z1 : LongInt;
begin
Z1:=GetTickCount;
Repeat
Application.ProcessMessages;
Until (GetTickCount-Z>Z1);
end;
</pre><br>Jens Schuman

[Stephan Puls]

Hoi,
<p>
Supi! Danke <br>
Das klappt ausgezeichnet, nun entdecke ich sogar noch Fehler, die ich so nie gefunden hätte. Also Danke.<br><br>
Stepha