Чтобы клавиши shortcut пунктов главного меню главной формы действовали только в этой форме (но не в модальных окнах)

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

Знакомая проблема. Лечится так:

function WindowHook(var Message: TMessage): Boolean;
...

procedure.FormCreate(Sender: TObject);
begin
  // MainForm
  Application.HookMainWindow(WindowHook);
end;

function.WindowHook;
begin
  Result := False;

  with Message do
    case Msg of
      CM_APPKEYDOWN, CM_APPSYSCOMMAND: Msg := WM_NULL;
end;

Статья Чтобы клавиши shortcut пунктов главного меню главной формы действовали только в этой форме (но не в модальных окнах) раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.

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

:: Главная :: Меню ::