在 TDateTimePicker 中将无效日期显示为禁用

Question

我正在使用 TDateTimePicker 允许用户选择一天（手动或通过单击按钮前进或后退一天）。然后，用户将看到该特定日期的日志条目。

控件效果很好，但我想将用户限制在 [OLDEST-DAY-IN-LOG] 和 [TODAY] 之间，因为这些是有数据的日期限制。

我已经在 TDateTimePicker 上设置了 MinDate 和 MaxDate 并且效果很好。选择允许范围之外的日期没有任何作用。

我的问题是是否可以将无效日期绘制为灰色。在附图中，选择的日期是 01/04，今天是 02/04。我希望看到 03/04（及以后）被禁用。理想情况下，就像您在图像中看到的“30”和“31”，它们是三月的最后几天。

这可能吗？如果相关，请使用 Delphi 7。

Answer 1

TDateTimePicker 是 Win32 DTP control 的包装器，它不提供您正在寻找的功能。没有自定义绘制下拉日历的选项，唯一可用的每日样式是 normal 和 bold。

Answer 2

正如已经在 cmets 中提到的，答案只有样式 normal and bold 可以使用。使用TYearBoldManager，您可以实现它。

仅设置为 3 月 30,31 日和 4 月 1,2,3,4 日

测试：Delphi5 on win XP/3

minDate = 2015/03/30 和 maxDate = 2015/04/04

您可以设置bold 日期

procedure TForm1.FormCreate(Sender: TObject);
begin
   MonthCalendar1.CalColors.MonthBackColor :=  $6A7678;
   MonthCalendar1.CalColors.TextColor := $4D5858;

   FYearBoldManager := TYearBoldManager.Create;
   FYearBoldManager.MakeBold(3, 30);
   FYearBoldManager.MakeBold(3, 31);
   FYearBoldManager.MakeBold(4, 1);
   FYearBoldManager.MakeBold(4, 2);
   FYearBoldManager.MakeBold(4, 3);
   FYearBoldManager.MakeBold(4, 4);
   ...
end;

然后您应该更改颜色值以获得最佳对比度。这里只是一个建议。

测试有4个文件here , MonthCalendarDemo

更新：

MonthCalendarDemo.dpr

program MonthCalendarDemo;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  UMonthBoldStorage in 'UMonthBoldStorage.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

看看UMonthBoldStorage.pas是怎么做的。

---

这里有什么区别？

专家们已经认识到了。

向右TDateTimePicker

左边是TMonthCalendar 和TComboBox

优势：

• 不需要 min-maxDate
• 可以有days without logfile。
• 完全控制日历。
• 粗体字好用
• 可以看到您点击的位置（查看25 的漂亮虚线边框。但对日历没有影响）。
• 点击错误的日期不会消失。（可以随意点击，只有双击粗体时日历才会消失。这里：第 20 天和第 22 天）。

• 可以在TComboBox 内部或down-arrow 上单击，或者当重点点击时ENTER 打开日历并通过日志文件将您带到最后一个日期。

• 您可以从那里轻松地使用箭头键查看有日志文件的月份和日期。

所有描述都可以通过几行附加代码来完成

procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
var
   year, month, day : Word;
begin
    DecodeDate(MonthCalendar1.Date,Year, Month, Day);
    if FYearBoldManager.GetDayStatus(month, day) then begin
       if ValidDate then MonthCalendar1.Visible:=False;
    end;
end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
var
   year, month, day : Word;
begin
   DecodeDate(MonthCalendar1.Date,Year, Month, Day);
   if FYearBoldManager.GetDayStatus(month, day) then begin
      lastValidDate := MonthCalendar1.Date;
      ValidDate:=True;
   end else begin
      MonthCalendar1.Date := lastValidDate;
      ValidDate:=False;
   end;
end;

function TForm1.getComboBoxText(var validText:AnsiString):Boolean;
var
actText :AnsiString;

begin
    if ComboBox1.Text = '' then  actText := validText else actText := ComboBox1.Text;
    Try
    MonthCalendar1.Date :=  StrToDateTime(Copy(actText,1,10));
    if actText <> validText then validText := actText;
    lastValidDate := MonthCalendar1.Date;
    ValidDate:=True;
    Result := True;
    except
      Result := False;
    end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
     if getComboBoxText(validText) then MonthCalendar1.Visible:=True;
end;

procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if getComboBoxText(validText) then MonthCalendar1.Visible:=True;
end;