Einzelnen Beitrag anzeigen

Benutzerbild von Specialwork
Specialwork

Registriert seit: 10. Jan 2003
Ort: Schwall
71 Beiträge
 
Delphi 8 Professional
 
#2
  Alt 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 !
  Mit Zitat antworten Zitat