为什么 TDateTimePicker 不让我导航到二月？

【问题标题】：Why won't TDateTimePicker let me navigate to February?为什么 TDateTimePicker 不让我导航到二月？
【发布时间】：2013-01-29 13:04:20
【问题描述】：

我在我的 D7 应用上使用 TDateTimePicker，它具有以下属性：

Format = 'MMM-yyyy'
DateMode = dmUpDown

当我尝试使用dt1.DateTime := Now 为其设置当前日期时间时，它会正确设置时间和日期，但是当我尝试导航月份时它会显示异常。特别是，我不能在三月以下流通。

是什么导致了这个问题？

【问题讨论】：

【解决方案1】：

问题是日期时间选择器控件正在使用当前日期初始化。这包括在几个月内无效的一个月中的一天。

所以，为了清楚起见，您是在 2013 年 1 月 29 日问这个问题。当您单击上/下控件移动到 2 月时，该控件无法执行更改，因为 2013 年 2 月 29 日没有.

对于任何难以重现的未来访问者，这是您演示问题所需的代码：

DateTimePicker1.Format := 'MMM-yyyy';
DateTimePicker1.DateMode := dmUpDown;
DateTimePicker1.DateTime := EncodeDateTime(2013, 1, 29, 0, 0, 0, 0);

解决此问题的简单方法是确保控件的DateTime 属性适用于月初。您可以通过在初始化控件时执行此代码来实现：

DateTimePicker1.DateTime := StartOfTheMonth(DateTimePicker1.DateTime);

或者如果你想更明确：

DateTimePicker1.DateTime := StartOfTheMonth(Date);

StartOfTheMonth 辅助函数位于 DateUtils 单元中。

【讨论】：