Thema: Timer

Einzelnen Beitrag anzeigen

Zeref Darkmage
(Gast)

n/a Beiträge
 
#1

Timer

  Alt 20. Jan 2018, 22:53
Delphi-Version: 7
Hi!

Ich benutze 2 Timer. Einen um eine Zahl auszugeben und Derweil auf einem Label die Zahlen aufploppen zu lassen. Und einen 2, welcher sich aktiviert wenn der erste Timer


15 mal "durchlaufen" wurde. Soweit so gut, funktioniert auch, jedoch stopt mein 2 Timer (bzw. das Shape läuft einfach aus der Form raus) nach besagter IF-Anweisung nicht

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(xGo); //xGo global als Integer
  randomize;
  lbl_wuerfel.Caption:=intToStr(random(6)+1);

  if xGo = 15 then
  begin
  timer1.enabled:=false;
  timer2.Enabled:=true;
  GoZahl:=STrToInt(label1.Caption); // GoZahl global als Integer
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
   inc(shapeGo); //shapeGo global als Integer
   shape1.Top:=shape1.Top-80;

   if shapeGo = GoZahl then begin
   timer2.Enabled:=false;
   end;
end;
Hoffentlich habt ihr einen Ratschlag

Lg Zeref
  Mit Zitat antworten Zitat