Настройка автоматической валидации для контрола TcxDateEdit в Delphi

Delphi , Синтаксис , Дата и Время

При работе с компонентом TcxDateEdit в среде разработки Delphi часто возникает потребность в автоматической валидации вводимых пользователем дат. В частности, необходимо, чтобы введенная дата находилась в заданном диапазоне. В этом материале мы рассмотрим, как можно реализовать такую валидацию.

Проблема

Компонент TcxDateEdit позволяет задать свойства MinDate и MaxDate для ограничения диапазона допустимых дат. Однако, по умолчанию, он не выполняет автоматическую проверку введенной даты на соответствие этим границам. Если пользователь введет дату, выходящую за пределы заданного диапазона, например, "1.1.1111", то это приведет к ошибке, вместо того чтобы скорректировать дату в пределах "01.01.1900 .. 01.01.2100".

Решение

Для решения этой проблемы можно воспользоваться обработчиком события OnValidate, который позволяет проверить введенное значение перед его применением. Ниже приведен пример кода, который необходимо поместить в раздел Properties вашего компонента TcxDateEdit:

procedure TForm.deDatePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
  ed: TcxDateEdit; // Используем TcxDateEdit для разных контролов, если нужно
  dt: TDateTime;
begin
  ed := TcxDateEdit(Sender);
  dt := StrToDateDef(DisplayValue, ed.Properties.MinDate);

  if not InRange(dt, ed.Properties.MinDate, ed.Properties.MaxDate) then
  begin
    // Если дата выходит за пределы диапазона, корректируем её
    DisplayValue := EnsureRange(dt, ed.Properties.MinDate, ed.Properties.MaxDate);
    // Присваиваем корректированное значение обратно в компонент
    ed.EditValue := DisplayValue;
  end;

  Error := False;
  ErrorText := '';
end;

Этот код проверяет, что введенная дата находится в пределах установленных границ MinDate и MaxDate. Если дата выходит за эти рамки, она корректируется до ближайшего допустимого значения в пределах диапазона.

Выводы

Использование обработчика OnValidate позволяет автоматически валидировать введенные даты в компоненте TcxDateEdit, тем самым обеспечивая соответствие вводимых данных заданным ограничениям. Это важный элемент в разработке надежных и удобных пользовательских интерфейсов, особенно когда работа с датами является ключевой частью функционала приложения.

Создано по материалам из источника по ссылке.

В статье рассматривается настройка автоматической валидации для компонента `TcxDateEdit` в Delphi для ограничения вводимых дат определенным диапазоном.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::