Fortschritt mit TProgressbar anzeigen

[Die Muhkuh]

Hi,

Du solltest vor der For-Schleife die Position des Progressbar auf 0 setzen sowie die Property Max auf den Maximalwert einstellen:

Delphi-Quellcode:

procedure TForm1.AusDatei1Click(Sender: TObject);
var I : Integer;
begin
  L:=imagescount;
  if OpenpictureDialog1.Execute then
    begin
      Form13.ProgressBar1.Position := 0;
      Form13.ProgressBar1.Max := OpenPictureDialog1.Files.Count;
      for I:=L to L+OpenpictureDialog1.Files.Count-1 do
        if ImagesCount<100 then
          begin
           [...] 
          end;
    end;
form13.Visible:=true;
end;