Ein Problemm mit sleep

[ferby]

Hallo,

Ich habe in meinem Spiel stehen:

Delphi-Quellcode:

procedure TForm1.spieltimerTimer(Sender: TObject);
begin

  if status='ladelevel' then
  begin
  levellabel.Visible:=true;
  level:=level+1;
  levellabel.caption:='Level ' + inttostr(level);
  sleep(2000);
  levellabel.visible:=false;
  shipimg.Visible:=true;
  status:='spiel';
  end;

end;

Es soll bewirken das zwei Sekunden Lang am Bildschirm steht: Level 1 und dann soll eine Grafik eingeblendet werden. Aber der Text Level 1 erscheint nie warum?
Nach zwei Sekunden wird dann die Grafik eingeblendet.

[SirThornberry]

füge vor "sleep" noch
levellabel.repaint; (eventuell wars auch .refresh) ein.
oder du machst hinter repaint noch "Application.ProcessMessages" dann sollte das Label auch neu gezeichnet werden.

[ferby]

Danke,

geht bei mir mit beiden.