如何在标签上显示日期选择器选定值

Question

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

嗨！

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

任何人有想法？感谢您的答案！

Answer 1

你的任务应该扭转

day := Datetimepicker2.date; 

您也可以编写代码，而无需使用局部变量

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