Registriert seit: 10. Jan 2003
Ort: Schwall
71 Beiträge
Delphi 8 Professional
|
8. Jun 2003, 21:45
Hallo BorlaDelphiUser,
Versuch es mal so:
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;
Application.ProcessMessages;
end;
Form1.Label3.Caption:='Fertig!'
end;
Gruß, Tom
Thomas van Veen Es gibt keine Probleme, nur Lösungen, auf die man nicht gleich kommt !
|