Управление горячими клавишами в Delphi XE2: решение проблемы с активными и неактивными формами

Delphi , Программа и Интерфейс , Формы

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

Пример некорректного поведения

Представим, что у нас есть приложение на Delphi XE2, где форма Form1 использует горячую клавишу Ctrl+F, а Form2 — активная форма, на которой горячие клавиши не задействованы. При нажатии Ctrl+F на Form2, обработка нажатия происходит в Form1, что является неправильным поведением, так как активной является форма Form2.

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

Чтобы решить эту проблему, можно использовать несколько подходов:

Проверка активной формы

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

if (Screen.ActiveForm <> Self) then
  Exit;

Этот код предполагает, что обработчик горячей клавиши реализован внутри формы Form1.

Использование действий (actions)

Для централизованной обработки горячих клавиш можно использовать действия, предоставляемые компонентами TAction, TActionList, TActionManager и т.д. Это позволит включать и выключать действия в зависимости от активности формы. Например, в обработчиках событий OnActivate и OnDeactivate формы можно устанавливать свойство State списка действий:

procedure TMyForm.FormActivate(Sender: TObject);
begin
  ActionList.State := asNormal;
end;

procedure TMyForm.FormDeactivate(Sender: TObject);
begin
  ActionList.State := asSuspended;
end;

Обработка сообщений WM_ACTIVATE

В обработчике сообщения WM_ACTIVATE можно также управлять состоянием списка действий:

if msg.wParam = WA_INACTIVE then
  ActionList.State := asSuspended
else
  ActionList.State := asNormal;

Переопределение функции IsShortCut

Можно переопределить функцию IsShortCut в неактивной форме, чтобы она не обрабатывала горячие клавиши:

function TMainForm.IsShortCut(var Message: TWMKey): Boolean;
begin
  if MainForm.Active then
    result := inherited IsShortCut(Message)
  else
    result := false;
end;

Обработка событий приложения

В обработчике событий приложения можно подвесить действия неактивных форм:

procedure ApplicationEventsShortCut(var msg: TWMKey; var handled: Boolean);
var
  index: Integer;
  component: TComponent;
  actionList: TCustomActionList;
  actionListForm: TCustomForm;
begin
  // Подвешиваем действия неактивных форм
  SuspendInactiveFormsActionLists(Self);
end;

procedure SuspendInactiveFormsActionLists(root: TComponent);
begin
  // Рекурсивный обход компонентов для нахождения списков действий
  // и подвешивание их, если форма неактивна
end;

Заключение

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

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

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

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

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

:: Главная :: Формы ::