Fórum Cursor pulando de Edit para outro #238647
19/06/2004
0
Tenho dois Edites e coloquei na propriedade MaxLenght do 1º o valor 10, e queria que quando chegasse ao final da quantidade de caracteries disponiveis (no cas 10) o cursor pulasse automaticamente para o outro Edit.
Fiz isso com o MaskEdit, mas com o Edit num tá dando certo, podem ajudar?
Valeu Galera!
Fiz isso com o MaskEdit, mas com o Edit num tá dando certo, podem ajudar?
Valeu Galera!
Denysk
Curtir tópico
+ 0
Responder
Posts
19/06/2004
Mmtoor
procedure TForm1.Edit1Change(Sender: TObject);
begin
If length (edit1.text) = 10 then
edit2.setfocus;
end;
begin
If length (edit1.text) = 10 then
edit2.setfocus;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)