Buscar por:

Andando com o ENTERr no form (atualizado)

Código

/*

com essa rotina vc inclui na propriedade do form somente o enterANDA( sender , key) e nao esqueca do form.keypreview := true;

e publica essa rotina em unit visivel no sistema.

*/

function andaEnter( form : TObject ; key : Char ) : boolean;

function andaEnter( form : TObject ; key : Char ) : boolean;

begin

  if key=#13 then begin

     Key := #0;

     TForm(form).Perform(WM_nextdlgctl,0,0)

  end else if Key = #27 then

     TForm(form).Perform(WM_nextdlgctl,1,0);

end;

/*

isso evita de voce copiar e colar a mesma rotinas 

nos forms do seu projeto.

Até a proxima.

Adilson Basilio.

*/