auf der suche nach einem befehl

[Matze]

Zitat von 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.

Zitat von Basti:

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.