Как определить одновременное нажатие клавиш

← →
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")

Как определить одновременное нажатие клавиш Найти похожие ветки