Работа с клавиатурой - Общие вопросы Delphi

xdall · 09.12.2010, 09:45

Товарищи...у меня вопрос...как можно узнать...нажата ли та или иная клавиша...
Например чтобы перехватить нажатие пробела - vk_space
а что для буквенных клавиш

Stilet · 09.12.2010, 10:06

Перехватить в каких ситуациях? Для разных ситуаций разные подходы.

SERG1980 · 09.12.2010, 10:10

Если внутри вашей программы отловить то используйте событие OnKeyDown формы

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = VK_SPASE then....
end;

или

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 case key of
  'a': ...
  'L': ...
 end;
end;

если вообще в системе то хук на клаву нужен

xdall · 09.12.2010, 10:12

нет...отлавливать нужно глобально...испльзуя windowshook...

SERG1980 · 09.12.2010, 10:13

про хуки здесь много обсуждалось ищите поиском. можно взять готовый компонент

xdall · 09.12.2010, 10:17

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

Пепел Феникса · 09.12.2010, 14:57

Цитата:

.испльзуя windowshook...

Цитата:

мне не нужен хук.

определитесь.

хуки и точка.

Stilet · 09.12.2010, 15:33

Цитата:

но без стандартных хуков

Врядли получится.
Разве что в таймере GetKeyState проверять.

Пепел Феникса · 09.12.2010, 15:36

Цитата:

Разве что в таймере GetKeyState проверять.

проворонить легко, ибо вдруг нагрузка пойдет?

09.12.2010, 09:45	#1
xdall Новичок Джуниор Регистрация: 09.12.2010 Сообщений: 3	Работа с клавиатурой Товарищи...у меня вопрос...как можно узнать...нажата ли та или иная клавиша... Например чтобы перехватить нажатие пробела - vk_space а что для буквенных клавиш

09.12.2010, 10:06	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Перехватить в каких ситуациях? Для разных ситуаций разные подходы. I'm learning to live...

09.12.2010, 10:10	#3
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Если внутри вашей программы отловить то используйте событие OnKeyDown формы Код: `procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_SPASE then.... end;` или Код: `procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin case key of 'a': ... 'L': ... end; end;` если вообще в системе то хук на клаву нужен Последний раз редактировалось SERG1980; 09.12.2010 в 10:12.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с клавиатурой!	FartNick	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	11.10.2010 17:20
Работа с клавиатурой	VeloceRAPTOR	Общие вопросы Delphi	1	02.06.2010 22:38
работа с клавиатурой	progN	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	11	30.04.2010 17:22
Работа с клавиатурой в С++	Matr1x	C++ Builder	5	27.01.2010 22:56
Работа с клавиатурой	АлексейМк	Общие вопросы C/C++	1	05.08.2009 01:27

09.12.2010, 10:12	#4
xdall Новичок Джуниор Регистрация: 09.12.2010 Сообщений: 3	нет...отлавливать нужно глобально...испльзуя windowshook...

09.12.2010, 10:13	#5
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	про хуки здесь много обсуждалось ищите поиском. можно взять готовый компонент

09.12.2010, 10:17	#6
xdall Новичок Джуниор Регистрация: 09.12.2010 Сообщений: 3	мне не нужен хук...мне просто нужно перехватить нажатие клавиши...понимаю что звучит тупо...но без стандартных хуков