Как правильно проконтролировать ввод даты

[Climber]

Пользователь вводит дату в TDateEdit. Надо сделать так, чтобы нельзя было ввести дату меньше, чем текущая. Я попробовал так:

Код: Выделить всё

procedure TForm1.DateEdit1Change(Sender: TObject);
begin
  if DateEdit1.Date<Date then
    begin
      ShowMessage('Сообщение пользователю о том, что он не прав');
      // Любой из способов дает ошибку
      DateEdit1.Text:='';           
      DateEdit1.Date:=Date;   
    end;
end;


С другими компонентами аналогичная конструкция работает, а вот с DateEdit'ом вываливается ошибка. Надо, чтобы текст в DateEdit'е заменялся на текущую дату или пустую строку.

Добавлено спустя 25 минут 57 секунд:
Забыл добавить: версия lazarus 0.9.26.2, Windows XP.
И вообще, вот такой код:

Код: Выделить всё

procedure TForm1.DateEdit1Change(Sender: TObject);
begin
  ShowMessage('Сообщение');
end;
end;

Выводит сообщение 4 раза подряд, а потом вызывает Access Violation...

[Attid]

если мне не изменяет память надо использовать OnAcceptDate

[VirtUX]

если мне не изменяет память надо использовать OnAcceptDate

Есть глюк (баг): при нажатии на кнопочку вызова календаря он обрабатывает это событие и после выбора даты. Короче дважды.

[Climber]

C OnAcceptDate уже лучше, но Access Violation остался. Причем это, видимо, баг компонента, потому что AV возникает после выхода из DateEditAcceptDate. (Отладчик у меня так и не заработал, точнее сказать не могу).
Кстати, версия лазаря (которая выводится в заголовке окна) у меня сейчас выглядит как "Lazarus IDE v0.9.26.2 бета", может, поправят со временем (это не единственный баг компонента TDateEdit, который у меня вылез).

[Attid]

может, поправят со временем

может, если в трекер отправишь или патч сдалаешь.

Добавлено спустя 37 секунд:
ЗЫ еще можешь на RX компоненты взлянуть, там быстрее правятся ошибки =)

[Climber]

ЗЫ еще можешь на RX компоненты взлянуть, там быстрее правятся ошибки =)

А ссылочку можно? И, раз пошла такая пьянка, на еще какие-нибудь интересные компоненты, вдруг пригодится...

[Attid]

viewforum.php?f=18
http://freepascal.ru/link/