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.