HELP!!! как обрабатать только 2 нажатия в 1 момент времени.

[frai]

Столкнулся вот с такой проблемой - в игре есть 2 объекта и 2 обработчика событий KeyDown. Нажатие кнопок завязано не на самих объектах а обрабатываются самой формой. Проблема заключается в том,что по игре часто необходимо в 1 момен времени перемещать эти объекты а форма обрабатывает только 1 нажатие в 1 момент времени, в результате если 1-ый объект в движении то 2-ой парализован.
Что сможите посоветовать? Если 1 объект регулируетя клавишами символьной клавиатуры а 2-ой цифровой то проблема исчезет?

[bphoenix]

я бы посоветовал сделать так:
завести массив Keys : array[ 0..255 ] of Boolean;

в OnKeyDown написать Keys[ Key ] := True;
в OnKeyUp: Keys[ Key ] := False;

в главном цикле (наверное он у тебя в OnTimer находится) написать:
if Keys[ VK_NUMPAD8 ] then <двигаешь объект№1 вверх>;
if Keys[ Byte('W') ] then <двигаешь объект№2 вверх>;
итд.
работает прекрасно

[Voland]

Лучше используй GetAsyncKeyState в главном цикле.

[frai]

напиши пожалуйста поподробней об этой процедуре. как мне ее применить по отношению к движению 2-х объектов bitbtn

[Voland]

Ну что-то вроде этого: (написал на скорую руку, сам не проверял)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (GetAsyncKeyState(VK_LEFT) and (1 shl 15)) <> 0 then BitBtn1.Left:=BitBtn1.Left + 1;
  ...
  if (GetAsyncKeyState(Ord('A')) and (1 shl 15)) <> 0 then BitBtn2.Left:=BitBtn2.Left + 1;
  ... //ну и дальше в том же духе
end;