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

Vex

Дата 17.11.2003, 21:14 (ссылка)

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

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

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

Цитата

Представь свой код здесь, пожалуйста.

Я делал стандартно - через атомы. Только я не очень понял в чем тут проблема - зарегить ОДНУ клавишу или записать и прочитать все это с реестра?

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

Слава Україні.

<Spawn>

Дата 17.11.2003, 22:04 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

_8989 Ради интереса можно было справку посмотреть

. Открываем Windows SDK> вводим HKM_GETHOTKEY. Видим, что модификаторы указываются в старшем байте. И видим что эти модификаторы обозначены как HOTKEYF_ALT, HOTKEYF_CONTROL и т.д. Отсюда следует, что нужно подключить к своей проге CommCtrl или самому написать значения для этих констант и проделать ту же самую операцию для нахождения битов, установленных в 1.

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

_8989

Дата 18.11.2003, 18:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Это бесполезно!

<Spawn>

Дата 19.11.2003, 06:31 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

_8989 Значит ты что то не то делаешь

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

_8989

Дата 19.11.2003, 15:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

2<Spawn>

Твой пример (Дата 15.11.2003, 13:44) работает, если использовать VCL. А если писать на чистом WIN32API, то не хочет.

<Spawn>

Дата 19.11.2003, 16:08 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

_8989 Дак тот пример проверяет наличие совсем других битов в переменной. Посмотри на это:

Код

  scShift = $2000;
  scCtrl = $4000;
  scAlt = $8000;
  scNone = 0;

и на это:

Код

  {$EXTERNALSYM HOTKEYF_SHIFT}
  HOTKEYF_SHIFT           = $01;
  {$EXTERNALSYM HOTKEYF_CONTROL}
  HOTKEYF_CONTROL         = $02;
  {$EXTERNALSYM HOTKEYF_ALT}
  HOTKEYF_ALT             = $04;
  {$EXTERNALSYM HOTKEYF_EXT}
  HOTKEYF_EXT             = $08;

Не правда ли они различаются?

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

_8989

Дата 19.11.2003, 16:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подставлял и такие HOTKEYF_SHIFT и т.д. Результата никакого.

<Spawn>

Дата 19.11.2003, 22:05 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Значит не правильно подставлял

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

_8989

Дата 19.11.2003, 22:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А как правильно?

<Spawn>

Дата 19.11.2003, 22:35 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Не знаю, т.к. не видел твоего кода

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

_8989

Дата 22.11.2003, 20:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я ж его уже представлял ранее...

_8989

Дата 25.11.2003, 10:53 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


var
  wHotKey: word;
  Modifiers:Cardinal = 0;

 wHotKey := SendMessage(GetDlgItem(hwnd, 303), HKM_GETHOTKEY, 0, 0);

  if (wHotKey and scShift) <> 0 then Modifiers:=Modifiers or HOTKEYF_SHIFT;
 if (wHotKey and scAlt) <> 0 then Modifiers:=Modifiers or HOTKEYF_ALT;
 if (wHotKey and scCtrl ) <> 0 then Modifiers:=Modifiers or HOTKEYF_CONTROL;

 RegisterHotKey(0, ID_HOTKEY1, Modifiers, WordRec(wHotKey).Lo);

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