Eu Uso o JVTabasEnter.....Wesley
From: Marcus Vinicius Pavan Sent: Thursday, September 11, 2008 3:29 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tab por enter . 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. __________ Information from ESET NOD32 Antivirus, version of virus signature database 3436 (20080911) __________ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]