Одновременное нажатие клавиш.

[Вадим Буренков]

Я начал делать игру на Delphi 7 и столкнулся с проблемой. Мне нужно организовать движение предмета с координатами X и Y по экрану.
Я назначил на событие OnKeyPress следующее:

procedure TForm1.Control(Sender: TObject; var Key: Char);
begin
if Key = 'a' then X:=X-2;
if Key = 'd' then X:=X+2;

if Key = 'w' then Y:=Y-2;
if Key = 's' then Y:=Y+2;
end;

Обьект движется по экрану, но процедура работает только если одновременно нажата только одна клавиша. Как можно этот устранить, ведь помимо кнопок движения будут еще например кнопка выстрела, которая может быть нажата одновременно с кнопками движения?

[Алекс Ялта]

Профессионалы на этом форуме советуют делать так:
создаешь функцию

function keypressed(key: byte): boolean;
var
  keys: TKeyboardState;
begin
  result:=false;
  GetKeyboardState(keys);
  if(keys[key]=128)or(keys[key]=129)then result:=true;
end;

потом в основном таймере программы такой код:

  if keypressed(39) then  // стрелка вправо
    sx:=1;
  if keypressed(37) then // стрелка влево
    sx:=-1;

  px:=px+sx;
  sx:=0;

px - это координаты объекта, которым управляешь.
sx - это его скорость. Т.е., если скорость со знаком "-", то обьект движется в противоположную сторону

[Алекс Ялта]

Естественно, нужно в глобальных переменных добавить px,sx - если движение только по горизонтали. В архиве пример простой программы с коментами, составленной на основе примеров, которые изложены умными людьми этого форума. Там также пример создания уровня с проходимостью и коллизией

[Вадим Буренков]

Работает! А как узнать коды всех клавиш клавиатуры для этой функции?

[Алекс Ялта]

38 - вверх, 40 - вниз, 27 - Esc, 13 - Enter
Остальные пока сам не знаю, не интересовался

[DomiNick]

А как узнать коды всех клавиш клавиатуры для этой функции?

Например вот так - код нажатой клавиши появится в заголовке формы

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Form1.Caption:=IntToStr(Key);
end;

[Kostia]

Существует еще куча способов, например:

if GetKeyState(27) shr 31=1 then exit;

или завести массив и туда писать нажатые и удалять отпущеные клавиши:

var
  keys: array[0..255]of boolean;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  keys[key]:=true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  keys[key]:=false;
end;

или тот же способ под WinAPI, обрабатываем сообщения:

var
  keys: array[0..255]of boolean;
...
case msg of
WM_KEYDOWN: keys[wParam]:=true;
WM_KEYUP: keys[wParam]:=false;
end;

[Вадим Буренков]

Я правильно понял, что в примере таймер нужен для постоянного выполнения кода (с интервалом в 1 мс), а в паскале для этого можно было использовать Repeat - until?

[Kostia]

да, но в паскале для того чтобы определить одновременно нажатые клавиши нужно воспользоваться сторонней библиотекой или самому на asm.
Я использовал библиотеку UKEYB. Она является альтернативой CRT для управления клавиатурой в программах, требующих более плавного управления клавишами, в первую очередь - играх.

[DeKot]

А как узнать коды всех клавиш клавиатуры для этой функции?

Сделал для себя простенькую прогу - держи как калькулятор на столе.