Delphi - Utilizar las teclas cursor

   
Vista:

Utilizar las teclas cursor

Publicado por Jose (1 intervención) el 24/06/2009 18:08:48
Hola amigos del foro

Estoy haciendo un programa delphi7 en el que estoy usando barios Edits y el problema es que no quiero utilizar el ratón ni la tecla tab para pasar de un Edit a otro Edit quiero que pase con las tecla cursor es decir con las teclas flecha arriba, abajo, izquierda y derecha no se si se puede hacer eso

De ante mano les agradezco mucho

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Las Torres de Hanoi
- Calculator
- Tres en ralla

RE:Utilizar las teclas cursor

Publicado por Msp (8 intervenciones) el 24/06/2009 20:56:04
Usando el evento OnKeyDown

procedure TForm1.Edit1KeyDown( Sender : TObject; var Key : Word;
Shift : TShiftState );

Const
Msp_Teclado_FlechaIzq =37;;
Msp_Teclado_FlechaArriba =38:
Msp_Teclado_FlechaDer =39;
Msp_Teclado_FlechaAbajo =40;
begin
case key of
Msp_Teclado_FlechaIzq : Edit2.SetFocus;
Msp_Teclado_FlechaArriba : Edit5.SetFocus;
Msp_Teclado_FlechaDer : Edit3.SetFocus;
Msp_Teclado_FlechaAbajo : Edit4.SetFocus;
end;
end;

Aqui te dejo el ejemplo completo Delphi 7 http://www.tecnologiamsp.com/delphi/Flechas.zip
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar