Fórum Tab, Enter #162655

[quote:827a285121=´Rosane Pacher´]Como posso trocar a tecla tab pela tecla enter em todo form ou toda a aplicação ?
Obrigada.[/quote:827a285121]

Enter funcionando como Tab em toda a aplicação
Uses
Grids
procedure TfrmPri.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;

no evento OnCreate o Form Principal digite a seguinte linha

Application.OnMessage := MudarComEnter;

Gata!
Faça o baixe os componentes das Bibliotecas Jedi no endereço
www.jvcl.sourceforge.net o pacote tem aproximadamente 8 mb. Caso você tenha alguma versão da RXLIB instalada, é recomendado que a remova antesde iniciar o processo de instalação. Descompacte o arquivo em uma pasta qualquer e execute o arquivo install.bat.
depois de instalar os componenentes dentro da paleta Utils existe um componenente que faz o que você quer automaticamente, basta adicioná-lo ao formulário!
Dentre este, existe vários outros componentes, muito Bom Mesmo!
Mas caso queira fazer manualmente, basta me informar o seu e-mail!
Espero ter Ajudado!
salomaosoares@bol.com.br