Faço o seguinte no evento OnChange de todos os DBEdits
If (Sender as TEdit).MaxLength=Length((Sender as TEdit).Text) then
Perform(WM_NextDlgCtl,0,0);
Até mais!
---------------------------------
Alcir Alexandre da Silva
Umuarama - Paraná - Brasil
---------------------------------
----- Original Message -----
From: "jmourajr2000" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Saturday, January 15, 2005 11:18 AM
Subject: [delphi-br] Como saltar campos automaticamente.
Caros amigos, boa tarde!
É possivel fazer com que exista um salto automatico, entre campos,
sendo que ao completar o "maxlenght" de um Edit ou DBEdit salte para
o proximo campo, sem a interferencia das teclas Tab e Enter.
Estou tentando assim, mas sem sucesso:
if lenght(Edit1.Text) = 8 then
Edit2.SetFocus;
Agradeço pela atenção.
Abraços a todos.
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
--
<<<<< 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
