timer的循环调用

Question

不知道timer能不能循环调用？

Answer 1

timer控件吗？启动后它每过指定的时间就执行一次。

Answer 2

我想通过在一个函数中的循环里激活timer控件，每经过一次循环就执行一次timer控件中定义的内容。不知道可不可以？

Answer 3

当然可以.在form中定义一变量C,在timer的事件中写
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(c);
  case c of
    1 :
    begin
       ...
      timer1.enabled:=false;
   end;    2:
    begin
      ...
      timer1.enabled:=false;
    end;
   ...
  end;
end;
在你的循环中打开timer,当然,c也可在你的循环中赋值

Answer 4

你的意思是直接在函数的循环里面调OnTimer吧？当然可以啦，就调一个OnTimer(Self)之类的就行了。