Cita:
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