计时器(Timer)

  计时器 位于【system】组件页的页面上，在设计期间是可见的，在运行期间它就隐藏起来，但是在后台每隔一段时间间隔，系统就会自动执行一次计时器事件。
  计时器的主要属性和事件：
  ·Enabled属性：用来设置计时器组件是否开始计时。若设置为Tme(默认值)，表示启动计时器开始计时；否则，表示暂停计时器的使用，在需要启动计时器再将Enabled属性设置为True即可。
    ·  Interval属性：用来设置两个计时器事件之间的时间间隔。设置时以毫秒为单位，设置的范围是0-65535ms。若将Interval属性值设置为1000 ms，即将时间间隔设置为1s，则每隔ls就会执行一个计时器事件。由此可以看出，若想在ls内执行n个计时器事件，则必须将Interval属性的值设置为1000／n才可实现。
    ·OnTimer事件：在每隔Interval指定的时间间隔就执行一次该事件响应函数中的代码。
    [例5-8]计时器的基本使用方法。
    效果：利用计时器组件，在窗体上显示当前时间。
    (1)新建一工程。在窗体Forml上加入两个标签组件，分别为Labell和Label2，再加入一计时器组件Timerl，将该计时器组件的Interval属性设置为1000。
    (2)创建窗体Forml的OnCreate和Timerl的OnTimer事件响应函数，在其中加入如下所示的代码：
    void_fastcall TForml：：TimerTimer(TObject*Sender)
    {
    Label2->Caption=TimeTOStr(Time())；
    }
    void_fastcall TForml：：FormCreate(TObject‘Sender)
    {
    Label2->Caption=TimeTOStr(Time())；
    )
    (3)编译并执行程序，执行结果如图5-12所示。