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