VPF::hotkeys - Форум программистов

rith2

Дата 22.5.2009, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 29.4.2008

Репутация: нет
Всего: нет

Привет!

Зарегал 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

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

MetalFan

Дата 22.5.2009, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

--------------------

There are always someone smarter than you...

rith2

Дата 22.5.2009, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 29.4.2008

Репутация: нет
Всего: нет

Цитата

Что возвращает 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

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

)

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

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

MetalFan

Дата 22.5.2009, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

Это сообщение отредактировал(а) MetalFan - 22.5.2009, 20:34

--------------------

There are always someone smarter than you...

rith2

Дата 23.5.2009, 04:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 29.4.2008

Репутация: нет
Всего: нет

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

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

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

)

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

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

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

)

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

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

Это сообщение отредактировал(а) MetalFan - 23.5.2009, 12:17

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »