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]
