ProgressBar wie?

[Christian18]

Hallo,

hier ein kleines bsp. wie man ein Progressbar zum laufeen bringt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var i : Integer;
begin
  ProgressBar1.Min:=0;
  ProgressBar1.Max:=100;
  for i:=0 to 100 do
    begin
      ProgressBar1.Position:=i;
      Sleep(50);  // --> ist natürlich nur da, um das beispiel noch ein bisschen zu veranschaulichen, wenn es jemand ausprobiert
    end;
end;