新建一个表单,在表单中加一个文本框,一个计时器,设计时器的INTERVAL属性为1000,双击计时器,在其TIMER事件中输入 THISFORM.TEXT1.VALUE=TIME() 保存表单,运行时就会看到时间在一秒一秒的变化。