德尔福的日期和时间

Question

嘿，如果我想要更新自己的日期和时间，我该怎么写？ Label3.Caption：= TimeToStr（时间） 这只是告诉我时间，当我打开程序时，但我想要一个时间，每秒更新一次表格（＆gt;像普通时钟一样）。

Answer 1

1）在表单上删除TTimer对象

2）将其“Interval”属性设置为1000，将其“Enabled”属性设置为true。

3）双击它以创建OnTimer事件处理程序。修改它看起来像这样：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Label3.Caption := TimeToStr(Time)
end;

你有它......

Answer 2

您可以使用Timer组件每秒更新标签标题。

1. 在表单上删除计时器。
2. 将Interval属性设置为500，这将每半秒更新一次标题。
3. 将Enabled属性设置为true。

4. 双击计时器并添加以下代码。

   Label3.Caption：= TimeToStr（时间）

您还可以使用FormatDateTime功能更改时间显示方式

Answer 3

因此，在表单上放一个计时器，设置为每隔500ms左右打勾，然后将时间写入计时器事件处理程序中的文本时间字段。您需要比要显示的最小时间间隔更快地打勾。另请注意，Windows计时器的优先级非常低，因此如果CPU加载，您的计时器可能会“粘住”。