sleep();

[daNiii]

Hallo!

Ich programmiere gerade BlackJack. Beim Kartengeben hätte ich gerne eine Zeitverzögerung zwischen den jeweiligen Karten.
Dazu verwende ich sleep();. Bei starten der Procedure, beginnt eine Zeitverzögerung, und dann erst werden alle Karten gleichzeitig ausgegeben. Gebe ich ein Showmessage zwischen die beiden sleep(); so funktioniert es. Ich möchte aber kein Showmessage haben.
Weiß jemand wo mein Fehler ist?

Delphi-Quellcode:

procedure TForm1.neuClick(Sender: TObject);
var
Pfad: string;
begin

Pfad:=  extractfilepath(application.ExeName) +'KartenBilder/';
Tisch.Picture.LoadFromFile(Pfad + 'blackJackTisch.jpg');
Karte_waehlen(); KartenwertICH:= Kartenwert; Ich1.Picture.LoadFromFile(Pfad + inttostr(Kartennummer)+'.bmp'); sleep(2000); showmessage('Test');
Karte_waehlen(); KartenwertPC:= Kartenwert; PC1.Picture.LoadFromFile(Pfad + inttostr(Kartennummer)+'.bmp');  sleep(2000);
Karte_waehlen(); KartenwertICH:= KartenwertICH + Kartenwert; Ich2.Picture.LoadFromFile(Pfad + inttostr(Kartennummer)+'.bmp');

lb_ich.Caption:= inttostr(KartenwertICH); lb_pc.Caption:= inttostr(KartenwertPC);
lb_ich.Visible:= true; lb_pc.Visible:= true;
end;

[patti]

Hi, probier anstatt des Showmessages mal

Application.ProcessMessages; oder kümmere dich um das Neuzeichnen der Images selbst (evtl. Repaint). Die Verzögerung entsteht wohl, weil die Komponenten nicht sofort neugezeichnet werden.

mfg

[daNiii]

Juhu...
Danke, das Application.ProcessMessages; anstelle des showmessage funktioniert.

[s.h.a.r.k]

Erst mal ein Tipp vorweg: Ein Befehl pro Zeile! Da es sonst sehr unübersichtlich wird.

Und zwar ist das Problem folgendes: Das Sleep lässt dein Programm einfach x-Millisekdunden warten und nimmt in der Zeit keine Nachrichten entgegen und macht halt auch nichts weiter. Wenn du mehrere Zeichnen-Befehle nacheinander machst, dann werden die quasi in einem Rutsch abgearbeitet, was du ja nicht willst. Du könntest dir hierzu eine eigene Sleep-Methode bauen und darin Application.ProcessMessages nutzen, da diese Methode dein Programm alle Nachrichten weiter abarbeiten lässt, aber die weiteren Befehle erst dann ausführt, wenn die Zeitspanne vorbei ist.

Diese Möglichkeit halte ich für weniger gut, da du nach *jedem* Zeichnen-Befehl so ein Sleep einbauen müsstest. Es wäre daher wahrlich sinnvoller, wenn du das Zeichnen innerhalb einer Klasse oder dergleichen erledigst, die alles entsprechend kapselt.

[patti]

Für das Problem mit dem "Einfrieren" des Programms: Lösungen findest du beispielsweise hier oder hier.

mfg