Mudar foco de um TEdit para outro automaticamente

Delphi

09/10/2003

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

Curtidas 0

Respostas

Beppe

Beppe

09/10/2003

Use Length(ed_usuario.text).

Ataliba


GOSTEI 0
Marlon Spiess

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


GOSTEI 0
Bclr

Bclr

09/10/2003

Muito Obrigado galera
resolveu


GOSTEI 0
POSTAR