Zeitverzögerung im Code!

[Basti]

Hi,

es gibt eine procedure Delay, die du aber erst definineren musst:
(erstell einfach eine neue Unit und kopier das hier rein)

Delphi-Quellcode:

unit DelayUnit;

interface

uses Windows, Forms;

procedure Delay(MSecs: Integer);

implementation

procedure Delay(MSecs: Integer);
var
 FirstTickCount : LongInt;
begin
 FirstTickCount:=GetTickCount;
 repeat
 Application.ProcessMessages; {allowing access to other controls, etc.}
//Application.HandleMessage;
 until ((GetTickCount-FirstTickCount) >= LongInt(MSecs));
end;

end.

Danach kannst du in deinem Programm den Befehl "Delay" benutzten (natürlich musst du die Unit "DelayUnit" aufrufen.

Während diesem Befehl, der genauso wie Sleep funktioniert, nur das er das Programm nicht anhält, kannst du das Programm nur nicht beenden. Das ist der einzige Nachteil.
Viel Spaß damit

Gruß

Basti

[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]