Нажатие клавиш не влияет друг на друга

[misher]

Как сделать так, когда я жму в перед, а потом еще и влево чтобы shape двигался и вперед и влево?

if key=VK_UP then Car.Top:=Car.Top-2;
if key=VK_LEFT then Car.Left:=Car.Left-2;

При таком коде можно ехать только в одном направлении...

[_SERGEYX_]

Принцип такой. Сначала определим нажата ли клавиша VK_UP

function VK_UPDown: Boolean;
var State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_UP] and 128) <> 0);
end;

Если нажата обработаем нажатие VK_LEFT

begin
  if VK_UPDown and (key = VK_LEFT) then
  begin
    Car.Top := Car.Top - 2;
    Car.Left := Car.Left - 2;
  end;
end;

С остальным, думаю, разберешься.

[Пепел Феникса]

GetKeyState и таймер

[misher]

Если нажата

А как это узнать?

[_SERGEYX_]

Я же написал функцию

function VK_UPDown: Boolean;
var State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_UP] and 128) <> 0);
end;

Замени в ней VK_UP на любую клавишу и узнаешь ее состояние.

[misher]

Не так вы меня поняли

begin
  if VK_UPDown and (key = VK_LEFT) then
  begin
    Car.Top := Car.Top - 2;
    Car.Left := Car.Left - 2;
  end;
end;

Куда это писать?

[misher]

_SERGEYX_, разобрался, спасибо

[ArtGrek]

если комбинации будет много получица путаница с кодом, вот почитаи о том что говорил Пепел Феникса
http://www.z-oleg.com/delphi/hardw2.htm

[misher]

если комбинации будет много получица путаница с кодом

Нормально все, кода не так уж и много... я читал про GetKeyState решил, что сейчас ее применять не буду, а потом как сделаю и посмотрю, что получится, тогда и изменю.