Timer 用法，我要如何实现1秒执行一次命令，急，急，简单，

Question

放一个Timer到你的窗体上，并设置Interval:=1000(毫秒)。然后在OnTimer事件里面写上你要执行的事件
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TRANSMIT（‘MDA’#13#100）
end;这个应该是很简单的啊？你为什么不看帮助呢？

Answer 1

Timer1.Interval = 1000 

Answer 2

放上timer，interval设为1000，enabled为true
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//你的命令
end;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:=1000;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //repalce this to run you command
  TRANSMIT（‘MDA’#13#100）
end;

Answer 4

放上timer，interval设为1000，enabled为true
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//你的命令
end;

Answer 5

谢谢上面的兄弟，我的程序如下，不行，你看看
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if form1.N3.Enabled=false（判断绝对没错） then
 begin
 transmit('MDA');
 end;
end;

Answer 6

在你的Form上放一个Timer,设定Interval := 1000,然后在OnTimer事件里面放你的代码你为什么不看帮助呢？很简单的问题啊

Answer 7

气死了，CSDN太慢了，回复->出错->再回复->还是出错->再回复->已经被别人回复了N遍了！！！

Answer 8

你跟踪调试一下不就知道了？？这么简单的问题还问？？
在transmit('MDA');上设断点，难道还要我教你？？如果没执行。要么的timer的enable 没有true，要么你的if form1.N3.Enabled=false（判断绝对没错） then
 绝对有问题！

Answer 9

设个按钮试试
begin
  timer1.inteval:=1000;
  timer1.enable:=true;
  end;
你点击timer控件，加入你要的代码

Answer 10

Timer1.Interval = 1000 

Answer 11

设个按钮试试
begin
  timer1.inteval:=1000;
  timer1.enable:=true;
  end;
你点击timer控件，加入你要的代码

Answer 12

只执行一次，那估计是你的程序里在某处把Timer的Enabled设置为False或N3.Enabled设置为True;自己跟踪一下看看