delphi - 我的程序如何对 TDateTimePicker 中的更改使用react？

Question

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

举个例子:如果 TDateTimePicker 组件上标记了 06/02/2012，则 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;