Timer neustarten

[rakert125]

Guten Tag liebe Community,
ich hätte da eine Frage bezüglich meiner "Würfelanimation".
Wie ihr sehen könnt, sollen die 6 Panels nacheinander rot gefärbt werden und entsprechend der zufallsgenerierten Zahl das jeweilige Panel grün gefärbt werden. Dieser Vorgang soll das Würfeln animieren. Das klappt soweit auch ganz gut, jedoch hätte ich es gerne, dass der Timer bei jedem Knopfdruck neustartet. Ich habe es bereits mehrfach versucht per Timer1.enabled:=false und dann wieder auf true setzen, aber das hat nicht funktioniert. Vielleicht könnt ihr mir js weiterhelfen. Vielen Dank!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var f: array[1..6] of Tpanel;
i,t,we:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := false;
Timer1.Enabled := true;


timer1.Interval:=100;
randomize;
we:=random(6)+1;
end;





procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
f[1]:=panel1;
f[2]:=panel2;
f[3]:=panel3;
f[4]:=panel4;
f[5]:=panel5;
f[6]:=panel6;

for i := 1 to 6 do
f[i].Color:=clwhite;
i:=1;

timer1.enabled:=false;

t:=8;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(t);
case t of
7:panel1.Color:=clred;
6:begin
panel2.Color:=clred;
panel1.Color:=clwhite;
end;
5:begin
panel3.Color:=clred;
panel2.Color:=clwhite;
end;
4: begin
panel4.Color:=clred;
panel3.Color:=clwhite;
end;
3:begin
panel5.Color:=clred;
panel4.Color:=clwhite;
end;
2: begin
panel6.Color:=clred;
panel5.Color:=clwhite;
end;

1: begin
panel6.Color:=clwhite;
timer1.Interval:=1000;
end;

0: begin
f[we].Color:=clgreen;

end;

end;


end;



end.

[Uwe Raabe]

Setz doch noch ein t := 8; vor das Timer1.Enabled := true; .

[haentschman]

Hallöle und herzlich willkommen hier

Setze mal den Timer im constructor und am Anfang von TimerTimer auf False. Im ButtonClick setzt du den Timer auf True. Randomize bitte nur einmalig aufrufen im constructor... Nachtrag: Quatsch. Ich hatte das dec übersehen und ging davon aus das du direkt mit der Zufallszahl im case arbeitest... Bin am Tablet. Da sind die Buchstaben etwas kleiner...

Bitte mach um den Quelltext die Delphi Tags. Das dürfte dann deutlich besser lesbar sein. Das ist der Button mit dem Helm.

[rakert125]

Guten Abend,
vielen Dank für eure Hilfe, ich war die letzten Tage unterwegs und bin nicht früher zum antworten gekommen.
Ich werde es morgen gleich ausprobieren.
Danke nochmal !