| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Горячие клавиши для активного приложения [D7, XP]

Zhekson ©   (2008-10-27 13:28:00) 

Прописанные мной, в примере, горячие клавиши исключают запуск нескольких экземпляров программы одновременно, т.к. во программах после первой не работают эти клавиши. Прим:

//В обработчике события OnCreate
//основной формы создаём горячую клавишу:

if not RegisterHotkey(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) then
 ShowMessage('Unable to assign Alt-Shift-F9 as hotkey.');

//В событии OnClose удаляем горячую клавишу:
UnRegisterHotkey( Handle, 1 );

//Добавляем обработчик в форму для сообщения
//WM_HOTKEY:

private // в секции объявлений формы
 procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;

procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
 if msg.hotkey = 1 then
 begin
   if IsIconic( Application.Handle ) then
     Application.Restore;
   BringToFront;
 end;
end;


Как сделать горячую клавишу на активное приложение, вне зависимости от контрола, который имеет фокус???

---

Zhekson   (2008-10-27 16:15:00) [1]

Сергей М. ©   (27.10.08 15:32) [6]
спс. это то что нужно!

---

Сергей М.   (2008-10-27 15:32:00) [2]

Свойство TCustomForm.KeyPreview:

Specifies whether the form should receive keyboard events before the active control.

---

Zhekson   (2008-10-27 15:28:00) [3]


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
   ShowMessage('Ctrl-A');
end;


вот этот вариант впринципе подходит, но как заставить приложение реагировать на нажатие этих клавишь вне зависимости от того, какой контрол на форме Form1 имеет фокус???

---

Zhekson   (2008-10-27 15:28:00) [4]


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
   ShowMessage('Ctrl-A');
end;


вот этот вариант впринципе подходит, но как заставить приложение реагировать на нажатие этих клавиш вне зависимости от того, какой контрол на форме Form1 имеет фокус???

---

Zhekson   (2008-10-27 15:13:00) [5]

> WM_HOTKEY приходит окну вне зависимости от его активности
> и наличия (отсутствия) контрола в фокусе.

это лишь подтверждает сказанные мной слова... меня же интересует как уйти от глобального параметра, чтобы использовать одну и ту же горячую клавишу, только в разных экземплярах одного приложения???

---

Leonid Troyanovsky   (2008-10-27 14:46:00) [6]

> Zhekson   (27.10.08 13:28)  

> Как сделать горячую клавишу на активное приложение, вне
> зависимости от контрола, который имеет фокус???

WM_HOTKEY приходит окну вне зависимости от его активности
и наличия (отсутствия) контрола в фокусе.

--
Regards, LVT.

---

www   (2008-10-27 13:32:00) [7]

TAction

---

Наверх