Ver Mensaje Individual
  #2  
Antiguo 25-11-2008
JosepGA JosepGA is offline
Miembro
 
Registrado: jun 2007
Ubicación: Tarragona
Posts: 166
Reputación: 20
JosepGA Va por buen camino
hola,

para ello debes activar en la tForm ( la ventana ) la propiedad KeyPreview a True. Luego en uno de los dos eventos de la ventana poner lo siguiente ( no recuerdo cual de los dos afectaba al comportamiento que tu quieres ):

en el evento Onkeypress:

Código Delphi [-]
If ( Key = #13 ) Then
  Key := #9

en el evento OnKeyDown:

Código Delphi [-]
If ( ( Key = #13 ) Or ( Key = #9 ) ) Then
  Begin
    SelectNext( Sender As tWinControl, True, True );
    Key := #0;
  End;

Prueba cada uno, ya que es uno de ellos el que te irá bien

Un saludo
Responder Con Cita