Mudar foco de um TEdit para outro automaticamente
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
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
Curtidas 0
Respostas
Beppe
09/10/2003
Use Length(ed_usuario.text).
Ataliba
Ataliba
GOSTEI 0
Marlon Spiess
09/10/2003
Olá, no primeiro edit no evento onkeypress, faça:
if length(Edit1.Text) = 7 then
Edit2.Setfocus;
Boa sorte, espero ter ajudado
if length(Edit1.Text) = 7 then
Edit2.Setfocus;
Boa sorte, espero ter ajudado
GOSTEI 0
Bclr
09/10/2003
Muito Obrigado galera
resolveu
resolveu
GOSTEI 0