在同一窗体中添加两个时钟控件为什么总出错？

Question

在同一窗体中添加两个时钟控件为什么总出错？/???????

Answer 1

1。重打开工程试试
2。语法出错。已经存在同名的Timer控件

Answer 2

var
  Form1: TForm1;
  m:integer;
  speedbutton:  array[1..10,1..10] of tspeedbutton;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); var m,n,i,j,a,b:integer;begin
m:=20 ; a:=20;b:=0;
n:=0;
     for i:=1 to 10 do
       begin
         for j:=1to 10 do
         begin
           speedbutton[i,j]:=tspeedbutton.create(form1);
            speedbutton[i,j].parent:=self;
           speedbutton[i,j].Top:=b;
           speedbutton[i,j].Left:=n;
           speedbutton[i,j].Height :=20;
           speedbutton[i,j].Visible :=false;
           n:=n+m;
           end;
           n:=0;
           b:=a+b;
        end;   end;procedure TForm1.Timer1Timer(Sender: TObject);
var i,j  :integer;
begin
 randomize;
// for i:=1 to 8 do    m:=random(10);
    speedbutton[1,m].visible:=true;
    speedbutton[1,m+1].visible:=true;
    speedbutton[1,m+2].visible:=true;
    speedbutton[2,m+1].visible:=true;
   timer1.enabled:=false;
    end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    timer1.Enabled :=true;    timer2.enabled:=true;
end;procedure TForm1.Timer2Timer(Sender: TObject);
var i ,n:integer;
begin
n:=m;
    for i:=1 to 10 do
    begin
     speedbutton[1,n].visible:=false;
    speedbutton[1,n+1].visible:=false;
    speedbutton[1,n+2].visible:=false;
    speedbutton[2,n+1].visible:=false;
    speedbutton[i+1,n].visible:=true;
    speedbutton[i+1,n+1].visible:=true;
    speedbutton[i+1,n+2].visible:=true;
    speedbutton[i+2,n+1].visible:=true;
    end;end;