RES: [delphi-br] Mudar de campo pelo tamanha do Edit
Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem postei a duvida e então lá vai: Crie a seguinte procedure procedure TForm1.SaltaCampos(Sender: TObject); begin if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then Perform(WM_NEXTDLGCTL,0,0); end; depois ligue ela a todos os seus edit's através do OnChange, mas somente cuide, se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os TEdit. Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de terde colocar em todos os lugares os comandos. Abraços. José de Moura -- 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
RES: [delphi-br] Mudar de campo pelo tamanha do Edit
E se vc não usar todo o maxlength do campo, terá que colocar uma procedure que troca o tab pelo enter ? -Mensagem original- De: jmourajr2000 [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 20 de janeiro de 2005 12:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Mudar de campo pelo tamanha do Edit Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem postei a duvida e então lá vai: Crie a seguinte procedure procedure TForm1.SaltaCampos(Sender: TObject); begin if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then Perform(WM_NEXTDLGCTL,0,0); end; depois ligue ela a todos os seus edit's através do OnChange, mas somente cuide, se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os TEdit. Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de terde colocar em todos os lugares os comandos. Abraços. José de Moura -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] 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
Re: [delphi-br] Mudar de campo pelo tamanha do Edit
Se não usar todo o MaxLength do campo, é só dar uma tab da forma normal para saltar de campo. - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 20, 2005 2:09 PM Subject: RES: [delphi-br] Mudar de campo pelo tamanha do Edit E se vc não usar todo o maxlength do campo, terá que colocar uma procedure que troca o tab pelo enter ? -Mensagem original- De: jmourajr2000 [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 20 de janeiro de 2005 12:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Mudar de campo pelo tamanha do Edit Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem postei a duvida e então lá vai: Crie a seguinte procedure procedure TForm1.SaltaCampos(Sender: TObject); begin if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then Perform(WM_NEXTDLGCTL,0,0); end; depois ligue ela a todos os seus edit's através do OnChange, mas somente cuide, se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os TEdit. Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de terde colocar em todos os lugares os comandos. Abraços. José de Moura -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Links do Yahoo! Grupos -- 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
