如何停止timer??

Question

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 try
   do something.....
   timer1.enabled:=false;
 finally
   timer1.enabled:=true;
 end;
end;

Answer 1

写错了，sorry
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 try
   do something.....
  finally
   timer1.enabled:=false;
 end;
end;

Answer 2

timer1.enabled:=false 就可以了。

Answer 3

timer1.enabled:=true 有可以从新执行

Answer 4

如果是做喷射窗体就可以不用TTimer,这玩意少用为好，有时会和其他控件冲突！

Answer 5

先timer1.enabled:=false再do sth

Answer 6

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.enabled:=false;
do something.....
end;先timer1.enabled:=false;
再do