delphi界面显示当天日期时间

在Delphi中，显示当前日期和时间通常使用`TDateTime`类型的变量，结合`TTimePicker`、`TDateTimePicker`控件，或者直接在窗体上创建文本框或标签，并更新其Text属性。以下是一个基本的例子：

1. **使用DateTimePicker**：
- 新建一个`TDateTimePicker`控件到窗体上。
- 设置其`Visible`属性为False，只用于获取日期和时间。
- 在代码中获取当前时间和日期，如：

     var
       NowDT: TDateTime;
     begin
       NowDT := TDateTime.Now; // 获取当前日期和时间
       // 或者设置到DateTimePicker的Value属性
       DateTimePicker1.Value := NowDT;
     end;

- 然后在需要的地方将时间显示在一个` TLabel`或其他适当组件上，例如：

     Label1.Caption := FormatDateTime('dd/MM/yyyy HH:mm:ss', NowDT);

2. **直接更新文本框或标签**：
- 创建一个`TLabel`，将它的`Align`属性设置为`alCenter`或`alRight`，便于居中显示。

     TLabel(YourLabelID).Caption := '当前时间：' + ShortDateStr;
     function ShortDateStr: string;
     begin
       Result := FormatDateTime('d', TDateTime.Now);
     end;

这里`ShortDateStr`函数使用了`FormatDateTime`函数，`'d'`是日期格式的一种约定。

记住，`TDateTime`是UTC时间，如果你需要本地时间，请考虑使用`LocalTime`属性。