Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Доп клавиши на клаве, как использовать? 
:(
    Опции темы
Akella
  Дата 11.11.2003, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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



baaa.gif На некоторых расширенных клавиатурах есть несколько дополнительных клавиш, такие как громкость, стоп, вперед, назад (это все работает с Windows Media Player), вызов Internet Explorer, вперед, назад.
Как из Delphi узнать их коды или как с ними работать правильно.
PM MAIL   Вверх
<Spawn>
Дата 11.11.2003, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

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



Очень просто smile.gif. Создаешь новый проект и пишешь обаботчик OnKeyDown формы (KeyPreview := True) :

Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 ListBox1.Items.Add(IntToStr(Key));
end;


... и понажимай эти кнопочки.


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Paradox
Дата 11.11.2003, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Ответ конечно тупой, но думаю поможет:
Заведи для чего-нить обработчик OnKeyDown и в дебагере посмотри чему равен параметр key
Например:
Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
для windows клавиши с логотипом код равен 91


--------------------
---
PM MAIL WWW   Вверх
Paradox
Дата 11.11.2003, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Когда писал ответа еще не было


--------------------
---
PM MAIL WWW   Вверх
Paradox
Дата 11.11.2003, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



<Spawn> че то твой вариант не работает а вот так катит
Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 label1.caption:=IntToStr(key);
end;



--------------------
---
PM MAIL WWW   Вверх
gray_k
Дата 11.11.2003, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1015
Регистрация: 9.1.2003
Где: Москва

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



Нет, так ничего не выйдет. Ведь OnKeyDown работает на стандартную клаву. У меня Logitech с кучей доп. клавиш. Так вот ни на одну из них OnKeyDown не срабатывает. Правда у меня стоит её(клавы) драйвер. Если драйвера нет, то может и отловит, надор попробовать.


--------------------
С уважением.
Gray.
PM MAIL   Вверх
gray_k
Дата 11.11.2003, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1015
Регистрация: 9.1.2003
Где: Москва

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



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


--------------------
С уважением.
Gray.
PM MAIL   Вверх
Paradox
Дата 11.11.2003, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



а МОЖЕТ найти таблицу с которой клава переводит сигналы от клавиш в коды и посмотреть че там (в линухе то это точно можно глянуть, а в виндовсе не знаю)


--------------------
---
PM MAIL WWW   Вверх
<Spawn>
Дата 11.11.2003, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

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



gray_k Нет, так ничего не выйдет.

На моей почему то работает.

To dsergey Если тебе хочется обрабатывать нажатия на эти кнопки глобально, то придется ставить хук.

Это сообщение отредактировал(а) <Spawn> - 11.11.2003, 14:32


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Baa
Дата 11.11.2003, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Кстати smile.gif вот вам темка smile.gif есть такая клава Microsoft Multimedia Natural Keyboard
Так вот на онной клаве есть такая кнопа, как FLock
Какой у неё сканкод?
з.ы. через несколько часов исследований пришел к выводу, что это кнопка вообще ничего не передает в комп, а изменяет флаг на контроллере клавиатуры (т.е. на платке, что внутри клавы)
Может я ошибаюсь?
Но проблема-то в чем? smile.gif Задалбывает все время нажимать FLock при загрузке винды, а state кнопки соотв. не сохраняется, и после сброса питания она выключена.



--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0492 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.