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

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

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

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