Скачать: CL | DM;

Проблемы с 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c