Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > hotkeys

Автор: rith2 22.5.2009, 16:03

Привет!

Зарегал hotkey

Код



procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
  var
    idHotKey: integer;
    fuModifiers: word;
    uVirtKey: word; 
begin
  idHotkey:= Message.wParam;
  fuModifiers:= LOWORD(Message.lParam);
  uVirtKey:= HIWORD(Message.lParam);
  if (fuModifiers = MOD_ALT)  AND (uVirtKey = VK_F10) then
    begin
      ShowMessage('good');
      ActivateKeyboardLayout(0,HKL_NEXT);
    end;
  inherited;
end;

Регистрирую

Код


keyid:=GlobalAddAtom('My Hotkey');
RegisterHotKey(handle,keyid,MOD_ALT,VK_F10);

Все катит, но если в качестве uVirtKey использовать использовать клавишу модификатор (CTRL, SHIFT, ALT) - то hotkey не ловится

Код


  if (fuModifiers = MOD_ALT)  AND (uVirtKey = VK_LCONTROL) then //например зарегать Alt + Left Control (LSHIFT,RCONTROL и т.д. не катят)

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

Автор: kami 22.5.2009, 17:40

Что возвращает RegisterHotKey?

Автор: MetalFan 22.5.2009, 17:56

kami, +1.
а вообще на то они и модификаторы... хочешь "ловить" их, поставь хук.

Автор: rith2 22.5.2009, 18:03

Цитата

Что возвращает RegisterHotKey?

Код


BOOL RegisterHotKey(HWND hWnd,
 int id, UINT fsModifiers, UINT vk);

    * hWnd - окно, обрабатывающее сообщение WM_HOTKEY,
    * fsModifiers - модификаторы (MOD_ALT, MOD_CONTROL, MOD_SHIFT, MOD_WIN),
    * vk - виртуальный код клавиши (см. константы с префиксом VK_).

Возвращает True , если данная комбинация не была зарегистрирована другим RegisterHotKey

Добавлено через 1 минуту и 23 секунды

Цитата

а вообще на то они и модификаторы... хочешь "ловить" их, поставь хук.

Ну да... просто в HotKeys уже разобрался, а по хукам пока не все понятно, вот думал пойти простой дорогой smile

Автор: kami 22.5.2009, 18:13

Цитата(rith2 @ 22.5.2009, 18:03

)

Возвращает True , если данная комбинация не была зарегистрирована другим RegisterHotKey

Вот мы и спрашиваем: в ТВОЕМ коде при ЕГО выполнении, что она возвращает?

Автор: MetalFan 22.5.2009, 20:34

+ если False, то что возвращает GetLastError или SysErrorMessage(GetLastError)

Автор: rith2 23.5.2009, 04:59

Код


BOOL RegisterHotKey(HWND hWnd,
 int id, UINT fsModifiers, UINT vk);

Возвращает True - то есть такая комба еще не зарегана.

Что любопытно, если условие сделать таким

Код


...
var
   k:Variant;
....
if (fuModifiers = MOD_ALT + MOD_SHIFT)  AND (uVirtKey = key) then //Событие нажатия alt + shift ловится, но условие if.. не выполняется

а если

Код


if (fuModifiers = MOD_ALT)  AND (uVirtKey = VK_LSHIFT) then //не ловится (uVirtKey = VK_SHIFT / MOD_SHIFT тож не катят )

Автор: MetalFan 23.5.2009, 12:13

так, автор, что-то каша какая-то получается.
я думал, что у тебя регистрация не проходит...
оказывается проходит.
тогда вопрос:
WM_HOTKEY вообще приходит?
если да, то зачем в WM_HOTKEY опять кнопки проверять? достаточно сравнить wParam с идентификатором кея.

Добавлено @ 12:17

Цитата(rith2 @ 23.5.2009, 04:59

)

то любопытно, если условие сделать таким

не понятно, зачем объявлена k:variant?

Цитата(rith2 @ 23.5.2009, 04:59

)

Возвращает True - то есть такая комба еще не зарегана.

да мы то знаем, что она возвращает в общем случае. интересует твой конкретный случай, ибо у тебя в коде нет проверки результата этой функции