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.
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;