多AND条件IF语句异常：TButton提前启用问题排查求助

我立刻发现了问题的核心：你明明维护了FDTMDateEmpty变量来标记TDateTimePicker是否为空，但在关键的EnableSaveButton判断逻辑里，却没用到这个准确的状态标记，反而用了dtpHolidayDate.Date <> 0这个完全不可靠的条件。

问题根源 #

当你通过DateTime_SetFormat(dtpHolidayDate.Handle, ' ')让TDateTimePicker显示为空时，它的Date属性并不会真的变成0——实际上TDateTimePicker的Date默认是一个有效日期（比如公元1年1月1日），所以dtpHolidayDate.Date <> 0这个判断永远为真！这就导致只要ComboBox和Edit非空，按钮就会被错误启用，完全忽略了日期控件是否真的被用户填写过。

修复代码 #

把EnableSaveButton里的判断逻辑替换为使用你自己维护的FDTMDateEmpty变量即可：

procedure TfrmHolidays.EnableSaveButton;
begin
  // 改用FDTMDateEmpty来判断日期是否已填写
  btnHolidaySave.Enabled := 
    (edtHolidayName.Text <> NullAsStringValue) 
    and (cmbHolidayType.ItemIndex <> -1)
    and not FDTMDateEmpty; // 这里是关键修改！
end;

额外优化建议 #

为了确保逻辑更严谨，建议补充处理用户手动清空日期的场景：比如用户通过键盘删除了日期输入框的内容时，需要把FDTMDateEmpty重新设为True，并同步更新按钮状态。可以修改dtpHolidayDateChange事件：

procedure TfrmHolidays.dtpHolidayDateChange(Sender: TObject);
begin
  // 检查控件显示的文本是否为空，精准更新状态
  FDTMDateEmpty := (dtpHolidayDate.Text.Trim = '');
  EnableSaveButton;
end;

这样就能覆盖所有日期控件为空的情况，确保按钮的启用状态完全符合你的需求。

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