Problem mit "Sleep"-Anweisung

[bender251]

Hallo

ich habe ein Problem mit der Sleep-Anweisung. In meinem Programm, soll ein Label, das bei FormCreate auf visible := false gesetzt wird sichtbar gemacht werden. Aber nur für 2 Sekunden und dann wieder unsichtbar werden.

Ich habe es folgendermaßen versucht:

Delphi-Quellcode:

label1.visible := true;
sleep(2000);
label1.visible := false;

Das funktioniert aber irgendwie nicht. Das Label wird icht angezeigt.
Wenn ich zu Kontrollzwecken vor das Sleep eine Showmessage einbaue, dann wird das Label angezeigt, wahrscheinlich, weil dann die Sleep-Anweisung nicht unmittelbar hinter der visible := true Anweisung kommt.
Kann mir jemand sagen warum das nicht funktioniert bzw. wie das funktioniert?

Mit freundlichen Grüßen
bender251

[Daniel B]

Mach mal vor und hinter dem Sleep ein Application.ProcessMessages.

[Luckie]

Das funktioniert nicht weil sleep dein Programm ganz lahm legt. Lösung: DELAY

[bender251]

@Daniel B: Cooooool...............Vielen Dank für die Antwort. Klappt prima.

Nur mal interessehalber: Was bewirkt dieses Application.Processmessages? Die Hilfe gibt da nicht so die Auskunft zu, wenn ich nichts übersehen habe.

Gruß bender251

[Dagon]

Das unterbricht das Programm, damit Windows auf Ereignisse reagieren kann.

[bender251]

Junge geht das heir schnell mit den Antworten.

Vielen Dank an alle.

Gruß bender251

[Luckie]

Ähm, umgekehrt. Es unterbricht eine Routine im eigenen Programm, damit das eigene Programm dazu kommt die MessageLoop abzuarbeiten und so auf Nachrichten von Windows reagieren kann.

Wozu soll ich mein Programm unterbrechen, damit Windows auf Nachrichten reagiert?

[himitsu]

Hi Luckie,

wieso soll das nicht funktionieren?

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    Label1.Visible := True;
    Application.ProcessMessages;
    Sleep(2000);
    Label1.Visible := False;
  End;

Delphi-Quellcode:

Label1.Visible := True;
Application.ProcessMessages;
Sleep(2000);
Label1.Visible := False;
Application.ProcessMessages;
{nachfolgende Anweisungen}

[Luckie]

Habe ich irgendwo, irgendwas geschrieben, dass was nicht funktionieren soll? Die Erklärung von the_master war nur verkehrtrum.

[himitsu]

Zitat:

Das funktioniert nicht weil sleep dein Programm ganz lahm legt.