Como Trocar o Tab por Enter no Delphi

Muitas vezes temos que programar todos os keypress para fazero enter funcionar em nossas caixas de texto

Existe um codigo muito interesante que pode vai aceletar a programação dessas caixas de texto.

Veja abaixo como fazer;

no evento OnKeyDown do form colocar:

CODE
if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);

Defina o propriedade KeyPreview do form como TRUE.

outa forma
Enter funcionando como Tab em toda a aplicação

incluir na Uses do form principal: Grids
adicione essa procedure:

CODE
procedure TFrmPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
 If not ((Screen.ActiveControl is TCustomMemo) or
    (Screen.ActiveControl is TCustomGrid) or
    (Screen.ActiveForm.ClassName = ‘TMessageForm’)) then begin
    If Msg.message = WM_KEYDOWN then begin
       Case Msg.wParam of
          VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);
          VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
       end;
    end;
 end;
end;

e no evento OnCreate o Form Principal digite a seguinte linha

CODE
Application.OnMessage := MudarComEnter;
Boa sorte e até a próxima

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s