delphi - 在 TDateTimePicker On 下拉菜单中设置日期

Question

我在 Delphi 6 表单上有一个 DateTimePicker，默认日期为 1899 年 12 月 30 日。我希望用户能够单击它或打开下拉日历并选择当前日期。使用 OnClick 过程:

DateTimePicker.Date := Date

当用户单击它或日历下拉按钮时，将可编辑部分中的日期设置为“日期”，但不会强制日历自动选择今天的日期。如果我在 DateTimePicker 的 OnDropDown 过程中使用此代码，结果是相同的。

我需要使用类似 in this post 的东西吗？操纵日历？或者我错过了一个简单的属性？

谢谢马特

Answer 1

您可以直接通过 MonthCal_SetCurSel 更新月历窗口.
像这样的东西(我将“默认”逻辑留给你):

uses Commctrl;

type TDateTimePickerAccess = class(TDateTimePicker);

procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
var
  ST: TSystemTime;
  CalendarHandle: HWND;
begin
  DateTimePicker1.Date := Date;
  DateTimeToSystemTime(Date, ST);
  CalendarHandle := TDateTimePickerAccess(DateTimePicker1).GetCalendarHandle;
  MonthCal_SetCurSel(CalendarHandle, ST);
end;

我个人会将默认日期设置为默认日期(Date)。