Flechas
Hola :
Perdona que te moleste pero me gustaria sdaber si sabes como usar las teclas de las flechas, he usado el evento keypress pero no se que valor devo dar al key para que reconosca las felchas nose si podras ayudarme...
bueno de antemano gracias...
Perdona que te moleste pero me gustaria sdaber si sabes como usar las teclas de las flechas, he usado el evento keypress pero no se que valor devo dar al key para que reconosca las felchas nose si podras ayudarme...
bueno de antemano gracias...
Respuesta de antipauli
1
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_LEFT then
Left := Left - 1
else if key = VK_RIGHT then
Left := Left + 1
else if key = VK_UP then
Top := Top - 1
else if key = VK_DOWN then
Top := Top + 1;
end;
Shift: TShiftState);
begin
if key = VK_LEFT then
Left := Left - 1
else if key = VK_RIGHT then
Left := Left + 1
else if key = VK_UP then
Top := Top - 1
else if key = VK_DOWN then
Top := Top + 1;
end;
