8 respuestas en este tema

[JoAnCa]

Hola a todos
No recuerdo donde encontre este codigo que hace que Enter funcione como TAB a nivel de aplicación, solo hay que ponerlo una vez en el formulario principal y ya funciona para todos los demas formularios.

Lo comparto con uds pues me resulto muy optimo

delphi

{-------------------- Para hacer que Enter funcione como TAB-------------------}
procedure TfrmPrincipal.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 TDBEdit) or (actual is TEdit) or 
         (actual is TDBComboBox) or (actual is TComboBox) then
       Msg.wParam:=VK_TAB;
    end;
end;

Pero hay un detalle que me gustaria optimizar
En el ejemplo hay que preguntar por cada Control en el que se quiere que funcione con un if
Si tengo que usar muchos controles la instruccuin if se me harí­a muy larga

Alguien sabe alguna forma mas optima de arreglar ese detalle? 

[Caral]

Hola
Y no se puede con un Case of?
Saludos

[eduarcol]

yo lo hago al contrario, yo pregunto si el control es el que no quiero que utilize esa funcion

[Delphius]

Hola,
Creo que pueden reducirse esos IF por algo como esto:

delphi

if Actual is TWinControl
   then .....

No tengo Delphi a mano, pero creo que es válido.

Saludos,

[Ayla]

Hola,

Gracias por la función, desconocí­a que se podí­a hacer a nivel de aplicación.

yo lo hago al contrario, yo pregunto si el control es el que no quiero que utilize esa funcion

Yo también lo hago al contrario 


Un saludo.

[escafandra]

Si a esos componentes que quieres que adopten esa funcionalidad les das un valor exclusivo en su propiedad Tag, puedes preguntar por ella:

delphi

{-------------------- Para hacer que Enter funcione como TAB-------------------}
procedure TfrmPrincipal.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.Tag = MI_VALOR_EXCLUSIVO  then
        Msg.wParam:=VK_TAB;
    end;
end;

Saludos.

[JoAnCa]

yo lo hago al contrario, yo pregunto si el control es el que no quiero que utilize esa funcion

Pienso que eso es lo mejor, pues los unicos que no quiero son los Botones, que siempre son mucho menos que los que quiero 

[enecumene]

¿Y no te funciona el de Escafandra?, porque más óptimo que eso no lo veo, muy bueno escafandra .

Saludos.

[JoAnCa]

Pues si, la sugerencia de escafandra esta bastante optima 
Aunque tambien excluyendo los controles es valido, ya que los que excluiria serian solo los botones, que seria un solo control (o dos para si alguien usa mas de un tipo de boton)