Использование разных горячих клавиш для разных вкладок в TPageControl в Delphi

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

Когда вы работаете с компонентом TPageControl в Delphi и хотите, чтобы одни и те же горячие клавиши выполняли различные действия в зависимости от активной вкладки, возникает интересная задача. В этом руководстве мы рассмотрим, как можно реализовать такую функциональность, используя компоненты TToolBar, TToolButton и TActions.

Проблема

У вас есть несколько вкладок (TTabSheet) в TPageControl, каждая из которых содержит панель инструментов (TToolBar) с кнопками (TToolButton). Эти кнопки должны реагировать на одинаковые горячие клавиши, но выполнять разные действия в зависимости от активной вкладки. Например, на первой вкладке сочетание клавиш Ctrl+T должно выполнять одно действие, а на второй вкладке — другое.

Решение

Для решения этой задачи можно использовать компоненты TActions, TActionManager и TActionList. Создайте одно действие для каждой функции, которую вы хотите выполнить, и назначьте каждому действию уникальный идентификатор. Затем создайте отдельные действия для каждого сочетания клавиш, которые вы хотите использовать, и свяжите их с соответствующими инструментальными кнопками на вкладках. В обработчике переключения вкладок, вы можете включить или выключить эти действия, устанавливая свойство Enabled в зависимости от текущей вкладки.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
var
  ActionNextPage: TAction;
begin
  // Создаем действия для каждой вкладки
  ActionNextPage := TAction(Action1).Create(Self);
  ActionNextPage.OnExecute := @ActionNextPageExecute;
  ActionNextPage.ShortCut := ShortCutCtrlT;
  ActionManager1.Actions.Add(ActionNextPage);

  // Дополнительная логика для других действий и вкладок

  // Не забудьте подключить TActionManager к TToolBar
  ActionManager1.Update(0);
end;

procedure TForm1.ActionNextPageExecute(Sender: TObject);
begin
  // Логика переключения на следующую вкладку
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  // Включаем или выключаем необходимые действия в зависимости от активной вкладки
  ActionManager1.UpdateActions;
end;

Управление горячими клавишами

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

procedure TForm1.ActionUpdate(Sender: TObject);
begin
  // Включаем или выключаем действия на основе видимости вкладок
  Action1.Enabled := (PageControl1.ActivePageIndex = 0);
  // ... аналогично для других действий
end;

Итог

Использование TActions в сочетании с управлением их свойствами Enabled позволяет вам реализовать функциональность, при которой одни и те же горячие клавиши могут выполнять различные действия в зависимости от активной вкладки в TPageControl. Это решение обеспечивает чистоту и модульность кода, а также упрощает его дальнейшее обслуживание и расширение.

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

Описание контекста: В Delphi необходимо реализовать использование разных горячих клавиш для выполнения различных действий в зависимости от активной вкладки в компоненте `TPageControl` с помощью `TActions`.

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

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

:: Главная :: Кнопки ::