Ayuda tratando de usar las teclas de direccion como hotkeys

[lostprophets]

bueno quiero hacer un juego pero necesito saber que puedo hacer para poder usar las teclas de direccion como Hotkey, he probado el codigo que posteo el adm pero no me funciona no se que puedo hacer exactamente, ayuda?

ejm

if Keypress=VK_RIGHT Then

IMG1.LEFT:=IMG1.LEFT-1;

end;

pero no funciona el codigo del post que se titula como "Problemilla con hook" tampoco me sirve, no hay errores pero a la hora de probarlo no funciona

[[egostar]]

Empezado por lostprophets

bueno quiero hacer un juego pero necesito saber que puedo hacer para poder usar las teclas de direccion como Hotkey, he probado el codigo que posteo el adm pero no me funciona no se que puedo hacer exactamente, ayuda?

ejm

if Keypress=VK_RIGHT Then

IMG1.LEFT:=IMG1.LEFT-1;

end;

pero no funciona el codigo del post que se titula como "Problemilla con hook" tampoco me sirve, no hay errores pero a la hora de probarlo no funciona

Hola lostprophets

He probado este pequeño ejemplo y funciona correctamente, en una Forma pegas un TImage, en el evento OnKeyDown de la Forma mete éste código.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RIGHT : Image1.Left:=Image1.Left+1;
    VK_LEFT  : Image1.Left:=Image1.Left-1;
    VK_UP    : Image1.Top:=Image1.Top-1;
    VK_DOWN  : Image1.Top:=Image1.Top+1;
  end;
end;

Así de simple, tal vez no estas usando el evento ni ejecutandolo en el objeto adecuado.

Salud OS

[lostprophets]

muxas gracias ahurita k llege a mi hato lo testeo