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

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;