delphi DateTimePicker 和 MonthCalendar 点击获取选中时间日期

DateTimePicker 和 MonthCalendar 点击获取选中时间日期

type

  TOpenWinControl = class(TWinControl);

procedure TForm20.DateTimePicker1Change(Sender: TObject);

begin

  Caption := DateToStr(TDateTimePicker(Sender).DateTime);

end;

procedure TForm20.DateTimePicker2Change(Sender: TObject);

begin

  Caption := TimeToStr(TDateTimePicker(Sender).DateTime);

end;

procedure TForm20.MonthCalendar1Click(Sender: TObject);

begin

  Caption := DateToStr(TMonthCalendar(Sender).Date);

end;