如何让TDateTimePicker默认显示年月选择视图而非日期选择？

核心修复：利用Windows消息切换默认视图 #

你的需求完全可以通过TDateTimePicker自带的Windows消息机制实现，无需依赖第三方组件。关键是在控件下拉展开时，自动切换到月份选择视图：

1. 添加DroppedDown事件处理
   在TDateTimePicker的OnDroppedDown事件中，获取内嵌的日历控件句柄，然后发送消息切换视图：

   uses Windows; // 确保引用Windows单元
   
   procedure TYourForm.dtpPeriodeDroppedDown(Sender: TObject);
   var
     hMonthCal: HWND;
   begin
     // 获取DateTimePicker内嵌的日历控件句柄
     hMonthCal := SendMessage(dtpPeriode.Handle, DTM_GETMONTHCAL, 0, 0);
     if hMonthCal <> 0 then
     begin
       // 切换到年份视图（显示12个月，即直接选择月份的界面）
       SendMessage(hMonthCal, MCM_SETCURRENTVIEW, 0, MCMV_YEAR);
     end;
   end;
   

2. 优化日期范围设置代码
   你原来的代码用StrToDate可能受系统日期格式影响，建议改用EncodeDate更安全：

   // 设置最小日期为当月第一天
   dtpPeriode.MinDate := EncodeDate(Year, Month, 1);
   // 设置最大日期为当月最后一天
   dtpPeriode.MaxDate := EncodeDate(Year, Month, DaysInAMonth(Year, Month));
   

原生替代方案（无需TDateTimePicker） #

如果不想处理控件消息，完全可以用两个原生TComboBox实现年月选择，更灵活：

• 年份ComboBox：动态生成可选年份范围（比如从MinYear到MaxYear）
• 月份ComboBox：固定添加1-12的选项，或根据选中年份动态限制可选月份
• 代码示例（初始化年份ComboBox）：

  procedure TYourForm.InitYearComboBox(cbYear: TComboBox; MinYear, MaxYear: Integer);
  var
    I: Integer;
  begin
    cbYear.Clear;
    for I := MinYear to MaxYear do
      cbYear.Items.Add(IntToStr(I));
    cbYear.ItemIndex := cbYear.Items.IndexOf(IntToStr(YearOf(Now)));
  end;
  

内容的提问来源于stack exchange，提问作者Limon