procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_left: // no hace falta begin porque es una sola instrucion image2.Left:=image2.Left-8; vk_right: image2.Left:=image2.left+8; vk_up: // ponemos begin porque son mas de una intrucion begin timer2.Interval:=10; image3.Visible:=true; image3.Left:=image2.Left+30; end; end; end;
Pero necesito saver como se llama esa tecla en particular.
Un Saludo.