我的程序如何对TDateTimePicker中的更改做出反应？

Question

我想知道当用户从TDateTimePicker组件中选择特定日期时如何更改标签的标题。

例如:如果在TDateTimePicker组件上标记了2012年6月2日，那么label1的标题将变为'Hello World‘，否则如果是其他日期，则什么也不会发生。

Answer 1

您需要为日期时间选取器编写OnChange事件处理程序。您还需要确保在窗体首次显示时运行此事件处理程序：

procedure TForm1.UpdateDateTimeLabel;
var
  SelectedDate, SpecialDate: TDateTime;
begin
  SelectedDate := DateTimePicker1.DateTime;
  SpecialDate := EncodeDate(2012, 2, 16);
  if IsSameDay(SelectedDate, SpecialDate) then
    Label1.Caption := 'Hello World'
  else
    Label1.Caption := '';
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  UpdateDateTimeLabel;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  UpdateDateTimeLabel;
end;