Programm geht nicht

[AETas]

habe ein problem mit nem selbst geschriebenem programm!
es soll (-te) ein wettrenn spiel werden! es gibt 2 ProgressBar, einen "spielt" man selbst und den anderen der computer.
beide funktionieren unabhängig voneinander, aber nicht zusammen!
kann mir jemaand helfen?
vielen dank im vorraus!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 while ProgressBar2.Position < 100 do
  begin
   sleep(500);
   ProgressBar2.Position:=ProgressBar2.Position+1;
  end;
 ProgressBar1.position:=ProgressBar1.Position+1;
end;

[3_of_8]

Sleep ist böse. Nimm Delay, das ist ein Sleep ohne Sleep, wie Inherited so schön gesagt hat.

Sleep blockiert den ganzen Thread, das heißt der Rest des Programms läuft nicht mehr weiter, während gesleept wird.

[AETas]

aso!
und wie muss ich delay anwenden?

[3_of_8]

Die OH hilft.

Delay wird einfach aufgerufen mit der Anzahl zu wartender Millisekunden als Parameter.

[Ultimator]

Keine Ahnung, wies bei Turbo Delphi ist, aber in meinem Delphi 2005 musste ich immer die Delay-Funktion aus der Code-Library verwenden. Die gabs in meinem Delphi nicht von Haus aus...

[3_of_8]

:oops: Kann sein...