Скачать: CL | DM;

Немодальная форма и 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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c