Pause in ein Lazarus Programm einbauen

[Have a nice Day]

Ich habe folgendes Problem:

Ich habe ein Lazarus Programm, in dem an einer bestimmten Stelle eine 2 Sekunden lange Pause gemacht werden soll.
Nun kenn ich den Befehl für diese Pause nicht :/
Könnt ihr mir helfen?

Ich habe es schon mir pause(2000) oder delay(2000) versucht aber da kam jedes mal "Identifier not found".

[Euklid]

Hi,
wenn man nicht gerade mit Threads programmiert, lässt sich das bei GUI-Programmen meines Wissens garnichtmal so leicht umsetzen .
Es gibt die TTimer-Komponente. Hiermit lässt sich in der Richtung einiges machen. Die ist aber nicht immer geeignet.

Viele Grüsse, Euklid

[Linkat]

Hallo Have a nice Day,
am einfachsten ist eine Pause mit der Prozedur sleep(1000) [Einheit in ms] zu erzielen. allerdings wird der ganze PC zum Schlafen gebracht.

Eleganter geht es z. B. mit folgendem:

Code: Alles auswählen

uses LCLIntf;
procedure pause(const ms:integer);
var tstart,tende    :cardinal;
begin
  tstart:=GetTickCount;
  tstart:=tstart+ms;
  repeat
    tende:=GetTickCount;
    Application.ProcessMessages;
  until tende>tstart;
end;
 

ms in Millisekunden.

Viel Erfolg.

Gruß, Linkat

[theo]

am einfachsten ist eine Pause mit der Prozedur sleep(1000) [Einheit in ms] zu erzielen. allerdings wird der ganze PC zum Schlafen gebracht.

Was verstehst du unter PC? Ein Linux oder Windows legst du damit bestimmt nicht lahm, nur den Hauptthread deines Anwendung.

[Linkat]

Hallo theo,
hast natürlich Recht.

Gruß, Linkat

[Have a nice Day]

Danke Leute für eure Hilfe ! :)
Hat mir sehr geholfen

[mschnell]

Ich habe ein Lazarus Programm, in dem an einer bestimmten Stelle eine 2 Sekunden lange Pause gemacht werden soll.

Im "Mainthread" muss immer ereignisoriebntiert programmiert werden (sonst hängt die GUI des Programms). Also solltest Du keine "Pause"! einbauen, sondern einen TTimer verwenden und die Aktionen nach der gewünschten Zeit damit starten.

In einem "Worker Thread" kannst Du sleep() verwenden.

-Michael