Обработка ошибок доступа к свойству Objects в TcxCheckListBox DevExpress

Delphi , Компоненты и Классы , Списки

Вопрос, поднятый пользователем, касается работы с компонентом TcxCheckListBox от компании DevExpress в среде разработки Delphi. Пользователь столкнулся с проблемой, когда, пытаясь использовать код, предназначенный для стандартного TCheckListBox, с компонентом TcxCheckListBox, он получал исключение. В контексте вопроса представлен код, который корректно работает с TCheckListBox, но вызывает ошибку при использовании TcxCheckListBox.

Проблема

Код, предназначенный для работы с TCheckListBox, использует свойство Objects для хранения объектов, которые были добавлены в список. Однако при использовании компонента TcxCheckListBox от DevExpress, свойство Objects отсутствует, что приводит к ошибке при попытке доступа к нему.

Пример кода с ошибкой

procedure TMaintenanceForm.cmdExecuteSelectedClick(Sender: TObject);
var
  i: Integer;
begin
  Screen.Cursor := crHourGlass;
  try
    for i := 0 to lbServices.Count -1 do
      if lbServices.Selected[i] then
        (lbServices.Items.Objects[i] as TAction).Execute;  // Исключение здесь!!!!
  finally
    Screen.Cursor := crDefault;
  end;
end;

Альтернативный ответ

При использовании TcxCheckListBox необходимо использовать другой способ добавления объектов в список. В DevExpress компонентах свойство Objects отсутствует, и вместо него следует использовать свойства ItemObject и Text для каждого элемента списка.

Подтвержденный ответ

Чтобы решить проблему, необходимо изменить код следующим образом:

var
  AItem: TcxCheckListBoxItem;
begin
  AItem := cxCheckListBox1.Items.Add;
  AItem.ItemObject := Action1; // Здесь должен быть ваш объект, например, экземпляр класса TAction
  AItem.Text := Action1.Caption; // Текст, отображаемый в списке
end;

И для выполнения действий:

var
  I: Integer;
begin
  for I := 0 to cxCheckListBox1.Items.Count - 1 do
    if cxCheckListBox1.Items[I].Checked then
      (cxCheckListBox1.Items[I].ItemObject as TAction).Execute;
end;

Важные замечания

• Перед использованием TcxCheckListBox убедитесь, что у вас установлена актуальная версия библиотеки ExpressEditors от DevExpress.
• Всегда проверяйте документацию компонента на официальном сайте DevExpress для получения актуальной информации о свойствах и методах.

Эта статья предназначена для специалистов, работающих с Object Pascal и компонентами от DevExpress, и призвана помочь в решении типичных проблем, связанных с обработкой данных и их отображением в пользовательском интерфейсе.

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

Пользователь столкнулся с проблемой обработки ошибок доступа к несуществующему свойству `Objects` компонента `TcxCheckListBox` в среде разработки Delphi, используя библиотеку DevExpress.

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

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

:: Главная :: Списки ::