Duda sobre FOCO

[karlaoax]

Alguien me puede dar una sugerencia de como hacer que al terminar de escribir en un Edit con un MAXLENGTH de 5, pase al segundo Edit.

Ejemplo:
Edit1= Maxlength:5 (Escribo:A0001)
al terminar de ingresar, el cursor cambie automaticamente al Edit2

Que propiedad debo utilizar para lograr esto, me imagino que debe sey el ONKEYPRESS o ONENTER u ONEXIT

Gracias

[vtdeleon]

En el evento OnkeyUp

Código Delphi [-]
procedure TForm1.MaskEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if TMaskEdit(Sender).MaxLength=Length(Trim(TMaskEdit(Sender).Text)) then
    Perform(WM_NEXTDLGCTL,0,0)
end;

Ese mismo evento se lo puedes asignar a todos los demas MaskEdit.
Saludos

[karlaoax]

Muchas gracias por la respuesta oportuna vtdeleon voy analizar el codigo y a hacer pruebas.

Atte, Karla

[karlaoax]

Aqui le hice unas modificaciones para quien necesite mas documentacion del codigo que proporciono vtdeleon, muchas gracias

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Edit1.MaxLength = Length(Trim(Edit1.Text)) then
Perform(WM_NEXTDLGCTL,0,0)
end;
end.

[vtdeleon]

No se, pero habia pensado que era para un MaskEdit. Pero bién.

[karlaoax]

Ok ya cheque con el MaskEdit y un Edit y el codigo funciona al 100%

Gracias.
Karla