Fórum Mudar foco de um TEdit para outro automaticamente #187536

09/10/2003

0

Olá! Tenho uma tela de login com dois campos TEdit (usuário e senha), limitei o tamanho do campo em no máximo 7 caracteres, gostaria de saber como faço para após o usuário digitar sua chave de 7 caracteres, mudar o foco automaticamente para o TEdit da senha, ao invés de ter que teclar TAB.
Já tentei usar a propriedade OnChange do TEdit, mas não consegui, veja abaixo como tentei fazer:

procedure Tfrm_login.ed_usuarioChange(Sender: TObject);
begin
if ed_usuario.text = ´#´ then
ed_senha.SetFocus;
end;

se tivesse algum jeito de eu fazer o programa entender que ou algum outro símbolo equivalem a 7 caracteres digitados, desta maneira funcionaria.

Obrigado


Bclr

Bclr

Responder

Posts

09/10/2003

Beppe

Use Length(ed_usuario.text).

Ataliba


Responder

Gostei + 0

09/10/2003

Marlon Spiess

Olá, no primeiro edit no evento onkeypress, faça:

if length(Edit1.Text) = 7 then
Edit2.Setfocus;

Boa sorte, espero ter ajudado


Responder

Gostei + 0

09/10/2003

Bclr

Muito Obrigado galera
resolveu


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar