Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.06;
Скачать: 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 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.024 c
1-16361
lkl
2004-01-24 12:37
2004.02.06
Помогите с фильтрацией в Edit???


14-16717
просто Я
2004-01-16 15:42
2004.02.06
---|Ветка была без названия|---


1-16366
Mihey
2004-01-23 22:08
2004.02.06
Сохранить регион в файл и загрузить.


3-16144
Bless
2004-01-16 12:48
2004.02.06
Вызов х.п. из х.п. с результатом запроса качестве параметра


6-16563
DillerXX
2003-12-01 20:13
2004.02.06
IP