Step ist die Anzahl an Einheiten, um die StepIt die Position erhöht
Du kannst also statt Progressbar.position := Progressbar.position + 1;
Einfach step := 1 setzte, und dann Progressbar.stepit;
Beispielcode für eine Progressbar:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to 350 do
begin
ProgressBar1.Position := round (abs (sin (i/100) * 100)); // rumrechnerei, damit es cooler aussieht ...
ProgressBar1.Repaint;
Sleep(10);
end;
end;