Решение проблемы отображения события в объектном инспекторе Delphi для компонента с подсвойствами

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

Отображение событий вложенных свойств в Object Inspector Delphi

Проблема

При разработке компонентов в Delphi иногда возникает необходимость создавать сложные структуры, где свойство компонента само является объектом (наследником TPersistent) с собственными свойствами, включая события. Однако, по умолчанию, Object Inspector (OI) не отображает события таких вложенных объектов, что затрудняет работу с ними на этапе проектирования.

Как показано в обсуждении, у пользователя Anders Melander возникла именно такая проблема: событие OnTestEvent в классе TTestSub не отображалось в OI, хотя в Lazarus IDE это работало корректно.

Стандартное решение

Remy Lebeau предложил классический подход — вынести событие на уровень основного компонента:

type
  TTest = class(TComponent)
  private
    FSub: TTestSub;
    function GetOnTestEvent: TNotifyEvent;
    procedure SetOnTestEvent(AValue: TNotifyEvent);
  published
    property OnTestEvent: TNotifyEvent read GetOnTestEvent write SetOnTestEvent;
  end;

implementation

function TTest.GetOnTestEvent: TNotifyEvent;
begin
  Result := FSub.OnTestEvent;
end;

procedure TTest.SetOnTestEvent(AValue: TNotifyEvent);
begin
  FSub.OnTestEvent := AValue;
end;

Плюсы:
- Простая реализация
- Гарантированно работает во всех версиях Delphi

Минусы:
- Нарушает инкапсуляцию (основной компонент должен знать о внутренней структуре подсвойства)
- Не масштабируется при большом количестве событий

Альтернативные решения

1. Наследование от TComponent

Как предложил pyscripter, можно сделать вложенный объект наследником TComponent и установить флаг csSubComponent:

constructor TTest.Create(AOwner: TComponent);
begin
  inherited;
  FSub := TTestSub.Create(Self);
  FSub.SetSubComponent(True);
end;

Плюсы:
- Простота реализации
- Автоматическое отображение событий в OI

Минусы:
- Навязывает использование TComponent там, где достаточно TPersistent
- Может привести к избыточности функционала

2. Кастомный редактор свойств

Anders Melander упомянул, что DevExpress использует специальные редакторы свойств. Вот пример реализации:

type
  TSubPropertyEditor = class(TClassProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure GetProperties(Proc: TGetPropProc); override;
  end;

implementation

function TSubPropertyEditor.GetAttributes: TPropertyAttributes;
begin
  Result := [paMultiSelect, paSubProperties, paReadOnly];
end;

procedure TSubPropertyEditor.GetProperties(Proc: TGetPropProc);
var
  I: Integer;
  Components: TDesignerSelectionList;
  PropList: PPropList;
  PropCount: Integer;
begin
  Components := TDesignerSelectionList.Create;
  try
    GetComponentList(Components);
    if Components.Count > 0 then
    begin
      PropCount := GetPropList(GetTypeData(GetPropType), PropList);
      try
        for I := 0 to PropCount - 1 do
          Proc(TPropertyProxy.Create(PropList^[I], Components));
      finally
        FreeMem(PropList);
      end;
    end;
  finally
    Components.Free;
  end;
end;

Регистрация редактора:

procedure Register;
begin
  RegisterComponents('FooBar', [TTest]);
  RegisterPropertyEditor(TypeInfo(TTestSub), TTest, 'Sub', TSubPropertyEditor);
end;

Плюсы:
- Гибкость и контроль над отображением свойств
- Соответствие принципам инкапсуляции

Минусы:
- Сложность реализации
- Требует глубокого понимания IDE Delphi

Рекомендации

1. Для простых случаев — используйте стандартное решение с выносом событий на уровень компонента.
2. Для сложных компонентов — реализуйте кастомный редактор свойств по аналогии с DevExpress.
3. Если важна простота — наследуйте вложенные объекты от TComponent с флагом csSubComponent.

Заключение

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

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

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

Статья описывает проблему отображения событий вложенных свойств в Object Inspector Delphi и предлагает несколько решений, включая стандартный подход, наследование от TComponent и кастомные редакторы свойств, с анализом их плюсов и минусов.

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

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

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