Tema: Focus
Ver Mensaje Individual
  #2  
Antiguo 15-05-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola Cronos, el código siguiente responde a tu pregunta:
Código:
if Key = #13 then                          { if it's an enter key }
   begin
       Key := #0;                                 { eat enter key }
       Perform(WM_NEXTDLGCTL, 0, 0);              { move to next control }
   end
La fuente es el truco nº 1 del web site de trucomanía, visitala para mas información.
Debes colocarlo en el evento OnKeypress de un control y asociarle el mismo evento de todos los demás controles.
Saludos
Responder Con Cita