我怎样才能让计时器计数？

Question

我尝试使用这种代码但没有工作，这是什么问题？

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := Timer1.Tag + 1;
  if Timer1.Tag >= 61 then
  begin
    Timer1.Enabled := False;
  end;
end;

Answer 1

代码没有“错误”......它运行正常。但是，你在期待什么？放置在TForm上的TTimer将默认启用，因此它将启动。默认情况下，其Interval为1000，其Tag默认为0。启用后，此Timer1将从1到61'计数'然后自行禁用...按'计数'我的意思是它将更改其标记值...在启用之前设置为False，最多为61。

如果这是您期望发生的事情，那么它应该发生。