Warten Befehl?

[raysto]

Wird das in Sekunden gezählt? Bei mir wartet der kein bisschen wenn ich zb. sleep(35) eingebe

[raysto]

Bei mir is ein Fehler. Wenn ich diesen Code habe:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
  form1.Image1.Picture.LoadFromFile('C:\Users\Raphael\Pictures\closeklick.ico');
  // Hier soll eine Sekunde gewartet werden.
  sleep(60);
  form1.Image1.Picture.LoadFromFile('C:\Users\Raphael\Pictures\close.ico');
  // Hier soll eine Sekunde gewartet werden.
  sleep(60);
  application.Terminate;
end;

end.

Dann wechselt der das Bild nich, sondern schließt einfac nur.
Wenn ich nur den ersten Bildwechsel drinhabe und den zweiten und das beenden rausnehme, wechselt er. Woran kann das liegen?

[Luckie]

Zitat von raysto:

Bei mir is ein Fehler. Wenn ich diesen Code habe:

Verrätst du uns auch was für ein Fehler das sein soll oder müssen wir raten?

[raysto]

Hatte ich doch erwähnt xD
Na egal. Jedenfalls wollte ich, dass man auf ein Kreuz klicken kann und dieses Leuchtet dann auf und dann wird es wieder normal und dann wird das Programm beendet^^
Das habe ich mit Bildern gemacht. Da kommt dann das Problem, wenn ich nur den ersten Bildwechsel drin habe, wechselt das Bild zum leuchtenden, wenn ich dann aber den zweiten Bildwechsel drin habe und das Programm schließen, dann schließt sich das Programm einfach nur,ohne die Bilder zu wechseln

[mkinzler]

Und hättest du die Hilfe konsultiert, wüsstest du dass ein Wert von 35 bei sleep bedeutet, dass 35/1000 Sekunden geawrtet wird, was für einen Mensch kaum sichtbar ist. Deshalb hat Detlef oben ja Sleep(1000) geschriben (also 1 Sekunde)

[raysto]

Ich hab die Warte zeit ja erhöht, trotzdem passiert nichts

[mkinzler]

Auf was hast du den erhöht?

[mkinzler]

Ich glaube eher, dass das Bild nicht neu gezeichnit wird. Zudem wartet Sleep() aktiv, Delay() wäre besser

Oder in diesem Fall ein Timer

[toms]

Sleep pausiert Programmausführungen gemäß dem Parameter Millseconds.
http://docwiki.embarcadero.com/VCL/de/SysUtils.Sleep