TDateTimePicker MaxDate - не позволяет установить управление на текущую дату

Question

Я установил стандарт VCL TDateTimePicker - MaxDate property to Date - например.

DTPicker.MaxDate := Date; 

Однако есть проблемы. Если я сейчас установил дату текущей:

DTPicker.Date := Date; 

Он не принимает его. Элемент управления просто остается на дату, установленную во время разработки. Я могу решить это, установив MaxDate равным Date + 1, а затем установив свойство Date, прекрасное и показывает сегодняшнюю дату, но тогда пользователь может выбрать дату завтрашнего дня. Я также пытался установить MaxDate на Date + 0.99999999, но это также не поможет.

Я использую Delphi 2010 и C++ Builder 2010 (если это ошибка в любом из них).

Любые идеи о том, как предотвратить выбор даты на сегодняшний день и установить контрольную дату на сегодняшнюю дату?

Изменение даты - «Не удалось установить дату и время календаря».

Update:

мне удалось заставить его работать следующим образом:

1. открыт выпадающий в TDateTimePicker (во время выполнения) и намеренно выбрать текущую дату (нажмите на уже выбрана текущая дата)
2. после этого выбрать любую прошлую дату
3. кнопка клика, которая имеет код для сброса даты, а затем она работает.

Мое решение, вероятно, будет использовать проверку диапазона перед закрытием формы, как это кажется, что MaxDate бесполезно, по крайней мере, с этой версией Delphi.

Answer 1

Похоже, что это временная часть Date, что вызывает проблемы. Это отлично работает на D2007, Х, X Е8 и Delphi 10 Сиэтле:

DateTimePicker1.MaxDate := Trunc(Date) + 0.99999999999; 
DateTimePicker1.Date := Date; 

испытано с использованием совершенно новый VCL формирует заявку. Опускаем TDateTimePicker и TButton на форме, а также генерировать событие для FormCreate для формы:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    DateTimePicker1.MaxDate := Trunc(Date) + 0.99999999999; 
end; 

и кнопки:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    DateTimePicker1.Date := Date; 
end; 

Запустите приложение, нажмите на выпадающий DateTimePicker, чтобы отобразить календарь и выберите любую доступную дату. DateTimePicker отображает выбранную дату. Нажмите кнопку и обновления DateTimePicker, чтобы показать сегодняшнюю дату. Сбрасывание календаря снова показывает правильные даты.

Конечно, как отметил Remy Lebeau в комментарии: в реальном приложении вы не захотите жестко закодировать временную часть. Лучшим решением было бы использовать DateUtils.EndOfDay(Date) или Trunc(Date) + EncodeTime(23, 59, 59, 999).

Answer 2

Нет большой разницы между добавлением 1 и 0.99999, так как 1 вы увеличивали бы один день до даты, а 0.999999 - почти один день (примерно 23: 59: 59: xxx).

Попробуйте следующее (вы должны включить DateUtils в списке изез): дата начала

DTPicker.MaxDate := IncSecond(Date);