Решение проблемы отображения дочерних компонентов в настраиваемых формах FireMonkey

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

Разработчики, работающие с FireMonkey, иногда сталкиваются с задачей создания настраиваемых компонентов, которые должны взаимодействовать с редактором компонентов в режиме дизайна. Одна из таких проблем связана с добавлением дочерних компонентов к родительскому в настраиваемых контролах, таких как TComboBox, чтобы они отображались в редакторе в режиме дизайна.

Описание проблемы

Пользователь столкнулся с проблемой, когда при переопределении метода ExecuteVerb настраиваемого редактора компонента TComboBox, попытка добавить дочерний компонент TListBoxControl не приводит к его отображению в редакторе в режиме дизайна.

Пример стандартного поведения TComboBox

Пример настраиваемого TComboBox

Исходный код метода ExecuteVerb

var
  PpComboItem : TPpListBoxItem;
  PpCombo: TPpComboBox;
begin
  if (Component is TPpComboBox) then
    PpCombo := (Component as TPpComboBox) else
      exit;

  PpComboItem := TPpListBoxItem.Create(PpCombo);
  PpComboItem.Parent := PpCombo;
end

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

Решение проблемы

После дополнительного анализа и изучения того, как компания TMS решает аналогичные задачи в своих компонентах, пользователь пришел к следующему коду:

var
  PpComboItem : TPpListBoxItem;
  PpCombo: TPpComboBox;
begin
  inherited;
  if (Component is TPpComboBox) then
    PpCombo := (Component as TPpComboBox) else
      exit;

  PpComboItem := (TPpListBoxItem(Designer.CreateComponent(TPpListBoxItem, PpCombo, 10, 10, 100, 100)));
  PpComboItem.Parent := PpCombo;
  Designer.Modified;
end

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

Подтвержденное решение

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

Uses TPpListBoxItem.pas, TPpComboBox.pas, DesignIntf, DesignEditors;

// Регистрация компонентов
procedure Register;
begin
  RegisterComponents('Sample', [TPpListBoxItem]);
  RegisterComponents('Sample', [TPpComboBox]);
  RegisterComponentEditor(TPpComboBox, TComboComponentEditor);
end;

Далее, переопределите метод ExecuteVerb редактора компонента родительского компонента, как было указано в вопросе (раздел с первым редактированием). Основная часть кода для добавления дочернего компонента выглядит следующим образом:

...
PpComboItem := (TPpListBoxItem(Designer.CreateComponent(TPpListBoxItem, PpCombo, 10, 10, 100, 100)));
PpComboItem.Parent := PpCombo;
Designer.Modified;
...

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

Альтернативное решение

Также было предложено рассмотреть возможность расширения редактора элементов TCustomListBox для добавления нового типа элемента TListBoxItem в выпадающем списке с другими типами элементов TListBoxItem.

В заключение, для решения проблемы отображения дочерних компонентов в настраиваемых формах FireMonkey необходимо правильно зарегистрировать компоненты и корректно переопределить метод ExecuteVerb редактора компонентов родительского компонента.

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

Пользователь столкнулся с проблемой некорректного отображения дочерних компонентов в редакторе компонентов настраиваемых форм FireMonkey, которая связана с неправильной регистрацией и инициализацией этих компонентов в методе `ExecuteVerb` редактора компо

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

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

:: Главная :: Компоненты ::