Текущий архив: 2003.07.07;
Скачать: CL | DM;
Вниз
Как определить одновременное нажатие клавиш Найти похожие ветки
← →
anod © (2003-06-25 15:55) [0]например VK_UP и VK_LEFT
???
← →
Smithson © (2003-06-25 16:47) [1]Одновременного нажатия клавиш не бывает. Сообщения всегда идут последовательно.
Сталбыть, заводишь переменную boVK_UPPressed, пишешь обработчик OnKeyDown и ставишь ее в True, когда получаешь vk_UPDown и в False когда vk_UPUP.
← →
TButton © (2003-06-25 17:35) [2]читай хелп по GetAsyncKeyState
← →
Anatoly Podgoretsky © (2003-06-25 20:01) [3]События может быть и идут последовательно, но после того как они ушли мы имеет две одновременно нажатые клавиши
← →
delphimun (2003-06-25 20:34) [4]varUp :boolean
VarDown :boolean
← →
Ученик © (2003-06-25 22:12) [5]function KeyPressed(aKey: Word) : Boolean;
begin
Result := (GetKeyState(aKey) and $8000) <>0
end;
if KeyPressed(VK_UP) and KeyPressed(VK_LEFT) then
ShowMessage("VK_UP_LEFT")
Страницы: 1 вся ветка
Текущий архив: 2003.07.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
