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]