Запрет нажатия двух клавиш движения

[Serg-Grin]

Здравствуйте, у меня есть такой вопрос:
Есть на форме игрок, он движется с помощью стрелок.
И есть анимация.
Но есть проблема, когда нажимаю обе кнопки вместе, вверх + влево или вверх + право, анимация начинает смешиваться ... как мне запретить нажимания двух клавиш одновременно?!

[Stilet]

По-моему их никак не запретить... Нажатия этих клавиш все равно идут последовательно.
Я бы пересмотрел механизм анимации. Возможно сделал бы двойную буфферизацию.

[Serg-Grin]

Ясно. А если использовать W-S-A-D как управление, то их одновременное нажатие можно будет запретить?

[Stilet]

Если не ошибаюсь винда (думаю о ней идет речь) может одновременно какбы слить в одно нажатие только CTRL ALT SHIFT с другой любой клавишей. Остальные обрабатываться последовательно должны. Врядли удастся их запретить.
Впрочем попробуй так: в OnKeyDown запоминай в некую скажем глобальную переменку код нажатой клавиши. В OnKeyUp эту переменку сбрасывай в ноль.
Если в OnKeyDown при нажатии другой клавиши эта переменка чему-то равна то не обрабатывать.
Т.е. запоминать первую нажатую, и пока она не отпущена другие не обрабатывать.
Это предположение с потолка, но думаю поможет.

[Serg-Grin]

Спасибо Stilet, буду разбираться)

[Yurk@]

можно попробовать во время нажатия клавиши проверить состояние всех остальных (например что-то типа PRESSED) ... и если результат отрицательный - выполнять нужное

[Don_Capone]

if ((GetAsyncKeyState(VK_left)<>0) and (GetAsyncKeyState(VK_right)<>0)) then
GetAsyncKeyState(VK_left);

вот если кто то жмет 2 сразу кнопки то человек идет в лево :D

[phomm]

Либо сделать дополнительную анимацию для ходьбы про диагоналям и работать с ней.
Либо выставить приоритет для анимации "горизонтальной" ходьбы, и при движении по диагонали показывать только её (т.е. если нажата кнопка влево - безусловно показывать анимацию влево, независимо от нажатия кнопок вверх или вниз).
Сделать второе можно через опрос клавиатуры и установкой некоего состояния у объекта спрайта или объекта-игрока, примерно так:

type TMoveState = (msUp, msDown, msLeft, msRight);
...
if (проверка кнопки Up) then
  Player.MoveState := msUp; // для down аналогично
if (проверка кнопки Left) then
  Player.MoveState := msLeft; // эта строка идёт после проверки на up down и по сути переставит состояние на себя

При отрисовке проверять стейт и анимацию рисовать соотв ему.