Re: [delphi-br] tab por enter .
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]
Re: [delphi-br] tab por enter .
Então, eu coloco em todos os Edits, no Evento OnKeyPress o código abaixo: case Key of #27: begin Key:=#0; Self.btnSairClick(Self.btnSair); end; #13: begin Perform(CM_DialogKey, VK_TAB, 0); Key:=#0; end; end; - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 11, 2008 1:19 PM Subject: [delphi-br] tab por enter . alguem sabe como fazer para trocar o tab pelo enter ... eu uso o if key = 13 then dbeditX.set forcus tem alguma forma de fazer com q o delphi interprete o enter em lugar do tab ... para não precisar escrever esse código cada vez q kero trocar de focu ... Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adriano Santos (Yahoo) Enviada em: quinta-feira, 11 de setembro de 2008 11:35 Para: Delphi-br Assunto: [delphi-br] [Off] Delphi Tour Report Pessoal, Publiquei ontem no meu blog um Report sobre o Delphi Tour aqui em São Paulo. ABs -- Boa Leitura, Adriano Santos Director X-35 Consulting and Development Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] tab por enter .
Caríssimos... Após ver dicastão complicadas de implementar, vou dar a minha: Evento onKeyDown do Form: procedure TFBSYS001SYS0002.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0); VK_ESCAPE: Perform(WM_NEXTDLGCTL, -1, 0); end; end; Deixo a propriedade KeyPreview como True e boa. Com isso, TODOS os objetos do form que recebam foco e não sejam botões passarão o foco adiante com ENTER e retornarão o foco com ESC. Se eu quiser que isso atue só nos TEdits? procedure TFBSYS001SYS0002.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Sender is TEdit then begin case Key of VK_RETURN: Perform(WM_NEXTDLGCTL, 0, 0); VK_ESCAPE: Perform(WM_NEXTDLGCTL, -1, 0); end; end; end; []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Luis Hilário Tobler Garcia [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 12 de Setembro de 2008 13:39:42 Assunto: Re: [delphi-br] tab por enter . Então, eu coloco em todos os Edits, no Evento OnKeyPress o código abaixo: case Key of #27: begin Key:=#0; Self.btnSairClick( Self.btnSair) ; end; #13: begin Perform(CM_DialogKe y, VK_TAB, 0); Key:=#0; end; end; - Original Message - From: [EMAIL PROTECTED] ind.br To: [EMAIL PROTECTED] os.com.br Sent: Thursday, September 11, 2008 1:19 PM Subject: [delphi-br] tab por enter . alguem sabe como fazer para trocar o tab pelo enter ... eu uso o if key = 13 then dbeditX.set forcus tem alguma forma de fazer com q o delphi interprete o enter em lugar do tab ... para não precisar escrever esse código cada vez q kero trocar de focu ... Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Adriano Santos (Yahoo) Enviada em: quinta-feira, 11 de setembro de 2008 11:35 Para: Delphi-br Assunto: [delphi-br] [Off] Delphi Tour Report Pessoal, Publiquei ontem no meu blog um Report sobre o Delphi Tour aqui em São Paulo. ABs -- Boa Leitura, Adriano Santos Director X-35 Consulting and Development Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi. blogspot. com www.adrianosantos. pro.br www.devmedia. com.br www.dug-sp.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tab por enter .
Procure no google pelo componente Enter.pas que vem com fontes e é free. Nele você pode selecionar quais componentes deseja que aceite o enter e o coloca no formulário principal, valendo para toda aplicação. Graça Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] tab por enter .
alguem sabe como fazer para trocar o tab pelo enter ... eu uso o if key = 13 then dbeditX.set forcus tem alguma forma de fazer com q o delphi interprete o enter em lugar do tab ... para não precisar escrever esse código cada vez q kero trocar de focu ... Cícero Fernandes Eng. Eletricista Eng. de Segurança do Trabalho CREA-SC 27.958-0 P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adriano Santos (Yahoo) Enviada em: quinta-feira, 11 de setembro de 2008 11:35 Para: Delphi-br Assunto: [delphi-br] [Off] Delphi Tour Report Pessoal, Publiquei ontem no meu blog um Report sobre o Delphi Tour aqui em São Paulo. ABs -- Boa Leitura, Adriano Santos Director X-35 Consulting and Development Development Manager SoftPark Editor Técnico Revistas ClubeDelphi e WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] tab por enter .
Coloca no Keypress: if (Key = #13) then begin SelectNext(Sender as tWinControl, True, True ); Key := #0; end; Luciano Calenzani Simões - Mensagem original De: [EMAIL PROTECTED] [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 11 de Setembro de 2008 13:19:12 Assunto: [delphi-br] tab por enter . alguem sabe como fazer para trocar o tab pelo enter ... eu uso o if key = 13 then dbeditX.set forcus tem alguma forma de fazer com q o delphi interprete o enter em lugar do tab ... para não precisar escrever esse código cada vez q kero trocar de focu ... Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
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.
Re: [delphi-br] Tab por Enter em uma DBGrid
Essa pergunta sua esta respondida dentro dos tutoriais que vc pode baixar em http://correio.leitbom.com.br:81/arquivos/Delphi/ Blue Informática escreveu: Meus Caros! Como faço para trocar o Tab por Enter em uma DBGrid,quando o usuário digitar algum valor na DBGriD. []'s Edinho - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE http://br.rd.yahoo.com/SIG=12ad7r0i3/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1107689053/A=2332652/R=0/id=noscript/SIG=119058f8i/*http://br.download.yahoo.com/messenger/ *Links do Yahoo! Grupos* * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html