Ver Mensaje Individual
  #5  
Antiguo 07-12-2007
diego11 diego11 is offline
Miembro
 
Registrado: oct 2007
Posts: 20
Reputación: 0
diego11 Va por buen camino
Gracias jhonny, lo que me has dicho me ha funcionado perfectamente.

Buscando en los trucos he encontrado que hay uno para desplazarse por los TEdit de un formulario usando Enter, cambiando una línea se puede adaptar para que sirva para todos los controles, sólo hay que seguir los pasos al pie de la letra y hacer el cambio que os pongo a continuación:

Código:
procedure TMainForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
     var
       actual: TWinControl;
     begin
       if Msg.message = WM_KEYDOWN then
          if Msg.wParam = VK_RETURN then
             begin
               actual := Screen.ActiveControl;
               if actual is TEdit then --> COMENTAMOS O ELIMINAMOS ESTA LÍNEA
                  Msg.wParam := VK_TAB;
             end;
     end;
Gracias a todos y perdonad las molestias
Responder Con Cita