Проблемы с DateTimePicker

← →
uno-84 (2008-10-10 08:55) [0]

Здравтсвуйте! Помогите пожалуйста! Мне нужно что бы DateTimePicker не принимал значения Даты меньше сегоднешней, сначала я установил минимальную дату в процедуре:

procedure TNewMesForm.FormCreate(Sender: TObject);
begin
DateTimePicker.MinDate := Now;
end;

тут при выборе сегоднешней даты выдает ошибку: Date is less minimum of 10.10.2008
Потом я решил проделать следующие:

procedure TNewMesForm.WorkDTPChange(Sender: TObject);
begin

if WorkDTP.Date < Now then
begin
MessageDlg("Неверная дата", mtWarning, [mbOk], 0);
WorkDTP.Date := Now;
end;
end;

Теперь программа по 2 раза выдает мне предупреждение MessageDlg и все ровно ставит дату меньше сегодняшней.
Что мне в таком случае делать?

← →
Johnmen © (2008-10-10 09:20) [1]

DateTimePicker.MinDate := Date;

Проблемы с DateTimePicker Найти похожие ветки