Проблема с отключением TDateTimePicker после установки MaxDate

Delphi , Компоненты и Классы , TDateTimePicker

Некоторые пользователи сообщают о проблеме с отключением компонента TDateTimePicker в Delphi после установки свойства MaxDate. После установки MaxDate в ненулевое значение, пользователи не могут вернуть его к нулю (отключить), хотя свойство MaxDate отображает ноль. Эта проблема может быть замечена, когда пользователь открывает календарь и проверяет последнюю видимую дату.

Ниже представлен пример кода, который демонстрирует эту проблему:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.MaxDate:= Date + 10;
  DateTimePicker1.MaxDate:= 0;
  Caption:= IntToStr(Trunc(Test.MaxDate));
end;

Решение проблемы

К сожалению, это действительно может быть связано с ошибкой в компоненте TDateTimePicker. Однако, есть несколько workaround, которые могут помочь решить эту проблему.

Вариант 1: Использование недокументированной функции DateTime_SetRange

Было обнаружено, что можно использовать недокументированную функцию DateTime_SetRange, чтобы сбросить диапазон дат в компоненте TDateTimePicker. Вот как это сделать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.MaxDate:= Date + 10;
  DateTime_SetRange(DateTimePicker1.Handle, 0, nil);
  DateTimePicker1.MaxDate:= 0;
  Caption:= IntToStr(Trunc(DateTimePicker1.MaxDate));
end;

Вариант 2: Сброс внутренних полей MaxDate и MinDate

Другой вариант - сбросить внутренние поля FMaxDate и FMinDate компонента TDateTimePicker. Вот как это сделать:

type
  TDateTimePickerHelper = class helper for TDateTimePicker
  public
    procedure ResetRange;
  end;

implementation

{ TDateTimePickerHelper }

procedure TDateTimePickerHelper.ResetRange;
begin
  FMaxDate := 0;
  FMinDate := 0;
end;

Используйте этот помощник класса следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.MaxDate:= Date + 10;
  DateTimePicker1.ResetRange;
  Caption:= IntToStr(Trunc(DateTimePicker1.MaxDate));
end;

Оба этих решения основаны на недокументированных особенностях и могут не работать в будущих версиях Delphi или Windows. Тем не менее, они могут служить workaround для текущих версий.

Альтернативный ответ

Если ни один из этих workaround не работает, вы можете рассмотреть альтернативный подход - использовать другой компонент для отображения даты, например, TDateEdit. Этот компонент не имеет такой же проблемы с отключением диапазона дат.

Создано по материалам из источника по ссылке.

Пользователи сообщают о проблеме с отключением компонента TDateTimePicker в Delphi после установки свойства MaxDate, из-за чего пользователи не могут вернуть его к нулю (отключить), хотя свойство MaxDate отображает ноль.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDateTimePicker ::