Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Suche Procedure zum Zeitverzögern


Holzholer - Fr 30.05.03 17:31
Titel: Suche Procedure zum Zeitverzögern
Ich suche dringend eine Procedure oder anderes, welche die Zeit kurz (sehr kurz) stoppt. Will ein Bild sinnvoll über den Bildschirm ziehen lassen. Zurzeit benutz ich diese (wurDe mir von meinem Informatiklehrer gegeben):

procedure pause(zeit:longint);
var anfang:longint;
begin anfang:=gettickcount;
while gettickcount<zeit+anfang do application.processmessages;
end;

Kennt jemand andere :?: :?:


fcg - Fr 30.05.03 17:59

hi

Versteh nicht ganz,was du mit 'Zeit' anhlaten verstehst aber...


Delphi-Quelltext
1:
2:
  sleep(100);
 Application.ProcessMessages;


z.B könnte das sein, was du meinst!

fcg


Delete - Fr 30.05.03 18:54

Such mal im Forum nach Delay.


Holzholer - Sa 31.05.03 15:11

Danke, das mit dem Sleep funzt. Hab ne Delay Procedure erstellt.
Aber wozu muss das Application.ProcessMessages; davor stehen?? Hab zwar gemerkt, dass es ohne nicht richtig funzt, doch Warum?

PS: Sorry falls ne dumme Frage war.


Delete - Sa 31.05.03 15:43

Damit deine Anwendung nicht einfriert und mal kuckt, ob Nachrichten für das Fenster in der Nachrichtenschlange stehen und diese eventuell abarbeiten kann.