Настройка индивидуальных масок ввода для каждой записи в DevExpress Grid

Delphi , Синтаксис , Текст и Строки

В процессе работы с компонентами DevExpress Grid в Delphi часто возникает задача настройки индивидуальных масок ввода для отдельных записей. Стандартное поведение, когда маска задается для всего столбца, может не удовлетворять требованиям, когда необходимо установить уникальную маску для каждой записи. В этом руководстве мы рассмотрим, как реализовать такую функциональность, используя события компонентов и возможности Object Pascal.

Проблема

Внутри табличного представления (TableView) компонента DevExpress Grid у нас есть привязанный к данным столбец строкового типа, для которого установлена свойство MaskEdit. Это свойство было настролено на визуальной форме, и при стандартной настройке оно работает корректно.

Однако, наша задача заключается в том, чтобы задать маску ввода для каждой отдельной записи, а не для всего столбца. Попытка доступа к свойству EditMask из кода в событии ColumnPropertiesChange оказалась неудачной, так как при обращении к свойству столбца, оно оказывается CustomEdit, и у него отсутствует свойство EditMask.

Решение

Для настройки индивидуальных масок ввода для каждой записи можно использовать событие InitEdit представления. В этом событии можно изменить маску для редактора, переданного в качестве параметра. По умолчанию используется редактор TcxCustomMaskEdit. Чтобы привязать нужную маску к конкретной записи, можно использовать индекс текущего элемента и доступ к данным через Sender.DataController.

procedure TForm3.cxGrid1DBTableView1InitEdit(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
  AEdit: TcxCustomEdit);
begin
  if AEdit is TcxCustomMaskEdit then // проверяем, что редактор является TcxCustomMaskEdit
  begin
    // ваша логика для определения маски ввода для текущей строки и столбца (здесь просто переключение)
    if (Sender.DataController.FocusedRecordIndex AND 1) = 1 then
      TcxCustomMaskEdit(AEdit).Properties.EditMask := '###..####'
    else
      TcxCustomMaskEdit(AEdit).Properties.EditMask := '******';
  end;
end;

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

Заключение

Использование события InitEdit позволяет гибко настраивать маски ввода для каждой записи в DevExpress Grid, что делает ваше приложение более функциональным и удобным для пользователя. Приведенный пример кода на Object Pascal демонстрирует, как можно реализовать индивидуальные настройки масок ввода.

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

Настройка индивидуальных масок ввода для каждой записи в компоненте DevExpress Grid в Delphi, когда требуется уникальная маска для каждой строки, а не для всего столбца.

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

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

:: Главная :: Текст и Строки ::