Обработка событий нажатия в кастомизированных компонентах Delphi

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

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

Проблема

Разработчик создает кастомизированный компонент, который должен иметь возможность назначать родительский компонент, используя свойство в объекте инспекторе. Родительские компоненты могут быть различными контролами на одной форме, но так как все они являются подклассами TControl, событие OnClick у TControl защищено, что не позволяет напрямую к нему обратиться.

Пример кода

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

procedure TSubCom.SetParentControl(const Value: TControl);
begin
  FParentControl := Value;
  // код для позиционирования компонента относительно родителя
end;

procedure TSubCom.Click;
begin
  inherited;
  if (FParentControl <> nil) then
  begin
    // попытка обращения к защищенному событию OnClick
  end;
end;

При выполнении этого кода возникает исключение типа каста.

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

Для решения данной проблемы можно использовать так называемый "интерфейсный класс" (interposer class). Необходимо напрямую выполнить приведение типов (Parent := WrapClass(FParentControl);) вместо использования оператора as.

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

Для доступа к защищенным членам класса необходимо объявить новый класс, который будет использоваться для приведения типов родительского компонента. Вместо использования события OnClick следует использовать Click. В коде это будет выглядеть следующим образом:

type
  TControlAccess = class(TControl);

procedure TSubCom.Click;
begin
  inherited Click;
  if (ParentControl <> nil) then
    TControlAccess(ParentControl).Click;
end;

Комментарии

Такой подход известен как "cracker class" или "хакерский класс". Традиционно в названии таких классов используется слово "Crack" или "Hack". Примеры и дополнительная информация доступны в интернете.

Вывод

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

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

Контекст описывает проблему доступа к защищенному событию `OnClick` родительского компонента в кастомизированном компоненте Delphi и предлагает решение с использованием приведения типов и интерфейсного класса.

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

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

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