Проблемы с DateTimePicker [D7, XP]
uno-84 © (2008-10-10 08:55:00)
Здравтсвуйте! Помогите пожалуйста! Мне нужно что бы
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:00) [1]
DateTimePicker.MinDate := Date;
Наверх 
ЧАТ |
Орешник |
|
