Преодоление трудностей с TAction в пользовательских компонентах Delphi

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

Вопрос, с которым сталкиваются разработчики при работе с компонентами TAction в Delphi, заключается в том, как сделать, чтобы экземпляры TAction были доступны в режиме дизайнера. Это особенно актуально, когда TAction создаются как подкомпоненты в пользовательских компонентах. Несмотря на то, что компоненты опубликованы, они не доступны для назначения в режиме дизайнера, так как не отображаются в Object Inspector.

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

Для решения данной проблемы необходимо изменить владельца (Owner) компонентов TAction на владельца пользовательского компонента, который, в свою очередь, является формой. Однако простое изменение владельца не приводит к желаемому результату. В данном случае, необходимо использовать подход с созданием экземпляра TCustomActionList внутри пользовательского компонента и установкой его владельцем форму, на которой размещён пользовательский компонент.

Пример кода

uses
  ..., ActnList, ...;

type
  TVrlAction = class(TCustomAction)
  protected
    procedure WriteState(Writer: TWriter); override;
  published
    property Caption;
  end;

  TVrlActionList = class(TCustomActionList)
  protected
    procedure WriteState(Writer: TWriter); override;
  end;

  TVrlFormCore = class(TComponent)
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure SetName(const NewName: TComponentName); override;
  public
    constructor Create(AOwner: TComponent); override;
    FActions: TVrlActionList;
  end;

implementation

// Описание методов WriteState для TVrlAction и TVrlActionList
// ...

// Конструктор класса TVrlFormCore
constructor TVrlFormCore.Create(AOwner: TComponent);
begin
  inherited;
  FActions := TVrlActionList.Create(AOwner);
  // Создание экземпляров TAction и добавление их в TCustomActionList
  // ...
end;

// Описание методов Notification и SetName для класса TVrlFormCore
// ...

Подробности реализации

• В классе TVrlAction переопределён метод WriteState, который отвечает за сохранение состояния компонента. В данном случае, он оставлен пустым, что исключает сохранение состояния компонента.
• В классе TVrlActionList также переопределяется метод WriteState.
• В классе TVrlFormCore создаётся экземпляр TVrlActionList с владельцем формой, на которой размещён пользовательский компонент.
• В конструкторе Create создаются экземпляры TAction и добавляются в TCustomActionList с помощью TContainedAction.
• В методе Notification обрабатывается событие удаления компонента, что важно для корректного освобождения памяти.
• В методе SetName устанавливается имя для TCustomActionList и каждого TAction, что позволяет идентифицировать их в Object Inspector.

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

• Важно, чтобы имена компонентов TAction были уникальными, особенно если пользовательский компонент может быть размещён на одной форме несколько раз.
• Для версий Delphi до XE следует использовать один подход, а для XE и выше — другой, предложенный Craig Peterson.
• Необходимо тщательно тестировать решение, чтобы убедиться в его корректной работе.

Следуя этим рекомендациям, разработчики смогут успешно преодолеть трудности с использованием компонентов TAction в пользовательских компонентах Delphi.

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

Вопрос касается трудностей с доступностью компонентов `TAction` в пользовательских компонентах Delphi в режиме дизайнера и предлагает решение, включающее создание экземпляра `TCustomActionList` внутри пользовательского компонента с ус

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

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

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