Wieso zeigt man mir nichts an?

**BorlanDelphiUser**

Hallo,
ich habe folgendes Problem, ich lasse eine for-schleife durchlaufen in der ein paar Funktionen (gegen Sleep ersetzt) ausgeführt werden und eine Prozessbar. Die Prozessbar funktionert einwandfrei aber die Labels werden erst nach dem Durchlauf angezeigt. Wer weis rat.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  i: integer;

begin

  Form1.ProgressBar1.Max:=10;

  Form1.Label3.Visible:=true;

  Form1.Label4.Caption:='0 / '+IntToStr(Form1.Listbox.Items.Count);

  Form1.Label4.Visible:=true;

  Form1.ProgressBar1.Visible:=true;

  for i := 0 to Form1.Listbox.Items.Count-1 do

  begin

    Form1.Label4.Caption:=IntToStr(i+1)+' / '+IntToStr(Form1.Listbox.Items.Count);

    Form1.ProgressBar1.StepIt;

    sleep(3000);

  end;

  Form1.Label3.Caption:='Fertig!'

end;

Wieso zeigt man mir nichts an?

Wieso zeigt man mir nichts an?

Forumregeln