如何将计时器设置为1秒。数数？

Question

这是Timer中的代码。我想当我点击按钮将定时器设置为0秒，定时器从0秒开始计数。

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(a);
  Label1.Caption := IntToStr(a);
  if a >= 61 then
    ShowMessage('Time is up!');
end;

Answer 1

在按钮单击事件中启用计时器并将计数变量a设置为0：

Timer1.Enabled := true;
a := 0;

此外，当你的计时器最终达到61（或任何停止点）时，你可能想要禁用计时器。

Answer 2

定时器间隔的单位是毫秒。如果希望计时器每秒触发一次，则必须将间隔设置为1000。

顺便说一句，你应该考虑使用与在timer事件中调用ShowMessage不同的方法。