我如何启动Ttimer delphi，使程序等待5秒

Question

如何启动计时器？ timer.interval：= 5000;

lbl.caption:='1'
*wait 5 sec*
lbl.caption:='2'

我的表单中有计时器并且已启用。

Answer 1

• 将计时器的Interval属性设置为5000。那是以毫秒为单位的间隔。
• 声明格式为FCount的{​​{1}}形式的私有字段。
• 将OnTimer事件处理程序附加到计时器：

Integer

• 如果要启动计时器，请初始化procedure TForm1.Timer1Timer(Sender: TObject); begin inc(FCount); lbl.Caption := IntToStr(FCount); end; 并将FCount设置为Timer1.Enabled。如果要停止计时器，请将True设置为Timer1.Enabled。

我假设，根据您之前删除的早期问题，您希望计数器继续滴答作响。

定时器每次打勾时都会调用False事件。因为每个tick都是对事件处理程序的不同调用，所以必须将任何持久状态存储在除局部变量之外的其他位置。那是因为局部变量只能持续他们拥有方法的持续时间。因此，使用表单的私有字段来维护计数。

请注意，计时器不会使程序等待。定时器是异步的。当计时器处于活动状态时，程序仍将响应用户输入。当计时器到期时，系统会在您的消息队列中合成一个计时器消息。该程序不会阻止计时器。因此，除非您采取其他操作，否则您的UI元素仍将启用并响应。