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