Amigo: si lo que quieres es que cuando llegue al decimo caracter salte a otro edit te mando un ejemplo:
procedure TForm1.DBEdit6Change(Sender: TObject);
begin
if length(dbedit6.text)=6 then
begin
DBEdit6.SelectAll;
dbedit2.setfocus;
end;
end;
espero que te sirva.
Cita:
Empezado por JoanKa
Yo estoy haciendo algo parecido, pero no puedo obtener el resultado ya que yo quiero validar solo que se me ingrese 10 caracters y cuando llegue al decimo caracter salta a otro edit.
He usado la funcion var_cuenta_dni:=Length(EDT_Nif.Text); y lo puesto dentro del evento keypress y no me lo hace.
COmo puedo hacer esto ??
Gracias y saludos
|