одновременное нажатие клавиш - Общие вопросы Delphi

DeDoK · 08.01.2010, 16:31

как узнать когда нажата определенная комбинация клавиш?
типа 7 + Ctrl + 1 ? заранее спасибо

raxp · 08.01.2010, 16:44

Код:

 If ((GetKeyState(VK_CONTROL) AND 128)=128) and
    ((GetKeyState(ord('1')) AND 128)=128) and
    ((GetKeyState(ord('7')) AND 128)=128) then ;

смысл ясен?

mihali4 · 08.01.2010, 16:56

Или

Код:

if ((getasynckeystate(VK_CONTROL)<>0) and 
(getasynckeystate(Ord('1'))<>0) and 
(getasynckeystate(Ord('7'))<>0)) then

DeDoK · 08.01.2010, 16:59

да) спасибо большое)

08.01.2010, 16:31	#1
DeDoK Форумчанин Регистрация: 05.11.2007 Сообщений: 392	одновременное нажатие клавиш как узнать когда нажата определенная комбинация клавиш? типа 7 + Ctrl + 1 ? заранее спасибо

08.01.2010, 16:44	#2
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	Код: `If ((GetKeyState(VK_CONTROL) AND 128)=128) and ((GetKeyState(ord('1')) AND 128)=128) and ((GetKeyState(ord('7')) AND 128)=128) then ;` смысл ясен? Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

08.01.2010, 16:56	#3
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Или Код: `if ((getasynckeystate(VK_CONTROL)<>0) and (getasynckeystate(Ord('1'))<>0) and (getasynckeystate(Ord('7'))<>0)) then`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одновременное нажатие клавиш.	Вадим Буренков	Gamedev - cоздание игр: Unity, OpenGL, DirectX	11	08.04.2009 18:17
одновременное нажатие нескольких кнопок	DANIЯR	Общие вопросы Delphi	8	27.11.2008 21:47
Нажатие клавиш	bashkos	JavaScript, Ajax	6	23.09.2008 19:01
Нажатие клавиш	VanDerKeen	Win Api	1	03.06.2007 21:13

08.01.2010, 16:59	#4
DeDoK Форумчанин Регистрация: 05.11.2007 Сообщений: 392	да) спасибо большое)