Progress Bar während einer sleep funktion?

[ste_ett]

Zitat von SirThornberry:

nimm anstelle von Sleep einfach eine Schleife

Delphi-Quellcode:

var LTime, LTime2: Cardinal;
begin
  ProgressBar1.Max := 2000;
  LTime := GetTickCount + 2000;
  Portout(888,01); // pumpe wird aktiviert 
  repeat
    Sleep(30); //damit die schleife nicht zu oft durchläuft
    LTime2 := GetTickCount;
    ProgressBar1.Position := 2000 - (LTime - LTime2);
    Application.ProcessMessages;    //  Refresh
  until LTime2 >= LTime;
  portout(888,0); // pumpe wird ausgeschaltet.

ist ungetestet

Zur Aktualisierung während des Vorgangs.
Sonst hängt die Form.