Акжан в сети - На уровень вверх(VCL) Как сказать VCL, чтобы клавиши shortcut пунктов главного меню главной формы действовали только в этой форме (но не в модальных окнах, к примеру)?

Знакомая проблема.

Лечится так:

function WindowHook(var Message: TMessage): Boolean;

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

function .WindowHook;
begin
  Result := False;

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

Александр Петросян, Зеленоград.

(2:5020/468.8)