Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c