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 пунктов главного меню главной формы действовали только в этой форме (но не в модальных окнах)