Também tem essa: ------------------------------------------------------------------------------------------------------------------------------------------
651 - 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; ------------------------------------------------------------------------------------------------------------------------------------------ devidamente extraido do http://www.delphix.org/?q=node/156 DTDelphi 2.8 (900 Dicas e Truques Delphi) Recomendo esse html compilado... tem dicas ótimas... não saia de casa sem ele !!!!!!!!!!!!! ------------------------------------------------------------------------------------------------------------------------------------------ Marcus Vinicius Pavan -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo.