Немодальная форма и Shortcuts в главной форме

← →
Sir Alex © (2004-01-25 02:19) [0]

В главной форме есть меню (главное и контексные) с назначенными shortcuts. Создаю немодальную форму. Находясь в этой форме при нажатии любой shortcut кнопки от главного окна она почему-то срабатывает, хотя ее никто и не просил...

Т.е. как отключить shortcuts главной формы, когда я нахожусь в немодальной?

← →
Sir Alex © (2004-01-25 03:56) [1]

Вот и ответ:

Solution / workaround
By Ray Lischner
You can set a message hook for the main form, to intercept these messages, and prevent them from reaching the main form. That lets the child form handle the keyboard events normally.
To set the hook, read about TApplication.HookMainWindow in the on-line documentation. Unfortunately, the Cm_AppKeyDown and Cm_AppSysCommand messages are not documented (Note: They are documented in Ray Lischner"s book "Secrets of Delphi 2"). To handle these messages, the hook function returns True, saying that the message has been handled, but the handler leaves the message Result as 0, which tells the child form to continue processing the message normally.
For example:

function TMainForm.AppKeyDownHook(var Msg: TMessage): Boolean; begin case Msg.Msg of Cm_AppkeyDown: Result := True; { test here whether to act locally } Cm_AppSysCommand: Result := True; { test here whether to act locally } else Result := False; { event will go to the parent"s main menu } end; end; procedure TMainForm.FormCreate(Sender: TObject); begin Application.HookMainWindow(AppKeyDownHook) end;

Немодальная форма и Shortcuts в главной форме Найти похожие ветки