Fortschritt mit TProgressbar anzeigen

[BM_90]

Zitat von Crazy Ivan:

der standartwert für progressbar.step ist (jedenfalls bei meinem delphi) 10. das heißt du müsstest den entsprechend der anzahl der bilder umstellen

Das habe ich auch schon gedacht, das geht aber nicht, weil das scheinbar nicht abhängig von der Anzahl der Bilder ist, sondern von der Größe...

Zitat von 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;

Ich hab das mal ausprobiert, hat aber nicht funktioniert. Jetzt ist die Progressbar immer schon auf 100% wenn das Formular erscheint...