[delphi-br] Enter Tab
Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo
RES: [Spam] [delphi-br] Enter Tab
No evento OnkeyPress: if Key=#13 then begin Key:=#0; Perform(WM_NEXTDLGCTL,0,0); end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pcinfowave Enviada em: quarta-feira, 28 de março de 2007 12:41 Para: delphi-br@yahoogrupos.com.br Assunto: [Spam] [delphi-br] Enter Tab Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo __ Informação do NOD32 IMON 2148 (20070327) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=fastbyte_l=1, 1175096532.665798.22534.aldavila.hst.terra.com.br,16795,20031127114101,20031 127114101 Mail _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 27/03/2007 / Versão: 5.1.00/4993 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enter Tab
tem um componente Jedi que faz isso. Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo Aviso de confidencialidade Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa), empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente, esclarecendo o equivoco. Confidentiality note This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a government company established under Brazilian law (5.851/72), is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. If you're not the addressee, please send it back, elucidating the failure.
Re: RES: [Spam] [delphi-br] Enter Tab
Ola... Valdir... Obrigado pela dica, mas vc poderia me explicar qual a diferença entre as duas linhas abaixo? Perform(WM_NEXTDLGCTL,0,0); Perform(CM_DialogKey, VK_TAB, 0); e, com relação à minha pergunta, o q eu quero mesmo é usar no onkey apenas a chamada pra minha procedure, pois assim eu economizo 4 linhas de digotação, entende. Grato! --- Em delphi-br@yahoogrupos.com.br, Valdir Sola [EMAIL PROTECTED] escreveu No evento OnkeyPress: if Key=#13 then begin Key:=#0; Perform(WM_NEXTDLGCTL,0,0); end; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de pcinfowave Enviada em: quarta-feira, 28 de março de 2007 12:41 Para: delphi-br@yahoogrupos.com.br Assunto: [Spam] [delphi-br] Enter Tab Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo __ Informação do NOD32 IMON 2148 (20070327) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra http://mail.terra.com.br/protected_email/imail/imail.cgi? +_u=fastbyte_l=1, 1175096532.665798.22534.aldavila.hst.terra.com.br,16795,2003112711410 1,20031 127114101 Mail _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 27/03/2007 / Versão: 5.1.00/4993 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enter Tab
é só vc passar os parametros... procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab(Sender, Key); end; []'s Adriano - Original Message - From: pcinfowave To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 12:40 PM Subject: [delphi-br] Enter Tab Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enter Tab
Acho que assim vai funcionar. FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab(Sender, Key); end; Eduardo pcinfowave escreveu: Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
RES: [delphi-br] Enter Tab
Olá paulo vc tbem pode usar as linhas abaixo no evento onShortCut do form. if not(Mudou) then if Msg.CharCode = 38 then begin Perform(WM_NEXTDLGCTL, 1, 0); Mudou := True; end else if (Msg.CharCode = 40) or (Msg.CharCode = 13)then begin Perform(WM_NEXTDLGCTL, 0, 0); Mudou := True; end; onde o 40 é a seta pra baixo e o 38 é a seta pra cima. vc pode colocar essas linhas dentro da sua procedure EnterTab tbem. José Ricardo Aviles. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Dercino Enviada em: quarta-feira, 28 de março de 2007 13:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Enter Tab tem um componente Jedi que faz isso. Ola, tenho um procedimento: MenuPrincipal.-EnterTab; procedure TMenuPrincipal.-EnterTab(-Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKe-y, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.-FormKeyPress(-Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.-EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo Aviso de confidencialidade Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa), empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente, esclarecendo o equivoco. Confidentiality note This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a government company established under Brazilian law (5.851/72), is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. If you're not the addressee, please send it back, elucidating the failure. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: 27/03/2007 16:38 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: 27/03/2007 16:38 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Enter Tab
Olá paulo vc tbem pode usar as linhas abaixo no evento onShortCut do form. if not(Mudou) then if Msg.CharCode = 38 then begin Perform(WM_NEXTDLGCTL, 1, 0); Mudou := True; end else if (Msg.CharCode = 40) or (Msg.CharCode = 13)then begin Perform(WM_NEXTDLGCTL, 0, 0); Mudou := True; end; onde o 40 é a seta pra baixo e o 38 é a seta pra cima. vc pode colocar essas linhas dentro da sua procedure EnterTab tbem. José Ricardo Aviles. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Dercino Enviada em: quarta-feira, 28 de março de 2007 13:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Enter Tab tem um componente Jedi que faz isso. Ola, tenho um procedimento: MenuPrincipal.-EnterTab; procedure TMenuPrincipal.-EnterTab(-Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKe-y, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.-FormKeyPress(-Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.-EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo Aviso de confidencialidade Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa), empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você a recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente, esclarecendo o equivoco. Confidentiality note This message from Empresa Brasileira de Pesquisa Agropecuária (Embrapa) a government company established under Brazilian law (5.851/72), is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. If you're not the addressee, please send it back, elucidating the failure. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: 27/03/2007 16:38 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: 27/03/2007 16:38 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Enter Tab
Amigo, utiliza herança para isso. Procura entender como funciona, e descobrirás a 8ª maravilha do mundo... hehe Por cima: Cria um form, coloca teu código no onKeyPress dele. Depois quando fores criar outro, herda do primeiro, não do TForm. É por aí... mas procura entender como funciona, pois tem mita coisa boa nisso. Pra não dizer só coisa boa... Att, Celso Lorenzetti Analista de Sistemas msn: [EMAIL PROTECTED] -- SysRS Tecnologia da Informação Ltda. www.sysrs.com.br - Original Message - From: pcinfowave To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 12:40 PM Subject: [delphi-br] Enter Tab Ola, tenho um procedimento: MenuPrincipal.EnterTab; procedure TMenuPrincipal.EnterTab(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; Perform(CM_DialogKey, VK_TAB, 0); end; end; Que está no form principal da aplicação e gostaria de chamá-lo no onkey press dos forms: procedure TCnsCliente5.FormKeyPress(Sender: TObject; var Key: Char); begin inherited; MenuPrincipal.EnterTab; end; porem ao tentar usar ele, dá erro de: Not Enough actual parameters O que eu preciso acrescentar na chamada do procedimento? A intenção é trocar o tab pelo enter. Se alguém puder ajudar, de já agradeço! []´s Paulo [As partes desta mensagem que não continham texto foram removidas]
