Cursor pulando de Edit para outro
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
Curtidas 0
Respostas
Mmtoor
19/06/2004
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;
GOSTEI 0