Einzelnen Beitrag anzeigen

Benutzerbild von danku
danku

Registriert seit: 9. Apr 2006
Ort: 32-bit Adressbus
181 Beiträge
 
Delphi 7 Enterprise
 
#1

TProgressbar entsprechende Opendialog Files

  Alt 5. Mai 2007, 11:52
Delphi-Quellcode:
...
  Progressbar1.Min:=1;
  Progressbar1.Max:= opendiag.files.count;


   //Füllen der StringGrid mit Opendialog1Daten
   sender.RowCount := opendiag.Files.Count+1;
   edaltsender.text := getcurrentdir;


for j:= ProgressBar1.min to ProgressBar1.Max do begin

   for i:=0 to opendiag.files.count -1 do begin
   sender.cells[0,1+i]:= ExtractFileName(opendiag.Files[i]);
   sender.cells[1,1+i]:= Extractfilename(opendiag.Files[i]);
   sender.cells[2,1+i]:= floattostr(FileSize (opendiag.Files.Strings[i]) div 1024);

   Progressbar1.Position:=j;

   end;
  
end;
...
Hi. Ich lade per Opendialog x-beliebige Files in eine stringgrid (sender).
ein fortschrittsbalken soll das optisch unterstützen.
das problem ist bloß da erst alle dateien in die stringgrid geladen werden,
und erst danach der fortschrittsbalken "wächst".
gibts eine möglichkeit, nach jeder geöffneten, einzelnen datei, den fortschrittsbalken kontinuierlich zu increasen?

mfg danku
  Mit Zitat antworten Zitat