Delphi cxDateNavigator限制选小于今日日期时选今日也触发提示如何解决

• 时间维度匹配错误：Now 函数返回值包含当前时分秒，而cxDateNavigator存储的日期属性时间部分默认为00:00:00，当天的00:00:00必然小于当天带时间的Now值，因此选中今日也会命中判断逻辑。
• 属性使用不合理：SelectionChanged 事件已通过入参AStart返回用户选中的起始日期，无需额外读取组件的Date属性，组件支持多选时直接读取Date还会出现取值偏差。

方案1：修改事件判断逻辑（快速适配现有代码） #

将判断条件中的Now替换为仅返回日期的Date函数，同时使用事件提供的选中参数，补充选中回滚逻辑避免用户选中非法日期：

procedure TForm9.cxDateNavigator1SelectionChanged(Sender: TObject; const AStart,
  AFinish: TDateTime);
begin
  // Date函数仅返回当前日期，时间部分为00:00:00，和组件日期取值格式匹配
  if AStart < Date then
  begin
    ShowMessage('不能选择小于今日的日期');
    // 回滚选中状态为今日
    cxDateNavigator1.Date := Date;
  end;
end;

方案2：使用组件原生属性限制（更推荐） #

cxDateNavigator自带可选范围限制属性，无需写事件拦截，交互体验更流畅：

• 在窗体初始化事件中赋值 cxDateNavigator1.Properties.MinDate := Date;
• 配置后用户无法点击选中小于MinDate的日期，无需额外做错误提示处理。

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