Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda tratando de usar las teclas de direccion como hotkeys (https://www.clubdelphi.com/foros/showthread.php?t=52391)

lostprophets 18-01-2008 23:07:21

Ayuda tratando de usar las teclas de direccion como hotkeys
 
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 18-01-2008 23:18:08

Cita:

Empezado por lostprophets (Mensaje 259323)
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 18-01-2008 23:36:23

muxas gracias ahurita k llege a mi hato lo testeo


La franja horaria es GMT +2. Ahora son las 19:57:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi