mehrere Progressbars in Schleife aktualisieren

[chaosben]

Oder der einfache (aber nicht so elegante) Weg:

Delphi-Quellcode:

var 
  PBs : array[0..7] of TProgressBar;
  idx : Integer;
begin
  PBs[0] := Progressbar1;
  PBs[1] := Progressbar2;
  //...

  for idx := Low(PBs) to High(PBs) do
    PBs[idx].Position := 5;
end;