Progressbar langsamer laufen lassen

[paresy]

Delphi-Quellcode:

var i:integer;
begin

//sicherstellen dass du auch nur wirklich MIN=0 und MAX=100 hast
progressbar1.MIN := 0;
progressbar1.MAX := 100;

 for i:=1 to 100 do
  begin

  progressbar1.position := i;

  //sleep berechnug
  //40 sec / 100 steps = 0,4 sec sleep = 400 ms

  sleep(400);

  //damit das app auch noch reagiert 
  application.processmessages;

 end;

end;

sollte eigentlich funzen

grüße paresy