Dartspiel programmieren mit Delphi

[egarF]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.enabled:=false;

if progressbar1.Position=100 then
    progressbar1.step:=-10
  else if progressbar1.Position=0 then
    progressbar1.step:=10;
  progressbar1.Stepit;

          if progressbar2.Position=100 then
    progressbar2.step:=-10
  else if progressbar1.Position=0 then
    progressbar2.step:=10;
  progressbar2.Stepit;

end;

procedure TForm1.Durchlaufstoppen2Click(Sender: TObject);
begin

Timer1.enabled:=false;
end;

Jetzt läuft die Progressbar1 gar nicht durch, sondern ist sofort beim Schuss-Click (Button) dunkelgrau... Progressbar zwei läuft mit balken, jedoch immer nur bei Buttonclick und nicht von alleine...