Thema: Timer

Einzelnen Beitrag anzeigen

Zeref Darkmage
(Gast)

n/a Beiträge
 
#2

AW: Timer

  Alt 20. Jan 2018, 23:02
Okay,haha.. blöderweise ist mir in den Sinn gekommen erst eine Zahl zu belegen und dann auf das Label zu packen,

anstatt das Label hintenrum auf eine Integer variable.

Dass das jetzt vielleicht kein komplett verschwendet Beitrag wird kann mir jemand möglicherweise sagen was das direkt für einen Unterschied macht


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

  if xGo = 15 then
  begin
  timer1.enabled:=false;
  timer2.Enabled:=true;
  end;
end;

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

   if shapeGo = GoZahl then begin
   timer2.Enabled:=false;
   end;
end;
  Mit Zitat antworten Zitat