如何在标签上显示datepicker选定值

Question

procedure TForm1.DateTimePicker2Change(Sender: TObject);
var
day:tdatetime;
begin
Datetimepicker2.date:=day;
label1.caption:=(FormatDateTime('dd.mm.yyyy', day));

嗨！

我想在标签上显示日期选择器中的选定日期，但标签只显示'30 .12.1899'日期，而不是我从日期选择器中选择的日期。

有人有想法吗？谢谢你的回答！

Answer 1

你的作业应该颠倒

day := Datetimepicker2.date;

您也可以在不使用本地变量

的情况下编写该代码

procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
  label1.caption:=(FormatDateTime('dd.mm.yyyy', Datetimepicker2.date));
end;