cambiar el foco de control

[beatriz g]

Hola, tengo un campo Tedit con un limite de caracteres, quiero saber como puedo pasar el foco de control al siguiente edit cuando se este Tedit se llene por completo.
Gracias otrar vez.

[[Bicho]]

Hola nuevamente Beatriz

Supongo que habrás visto que el edit tiene la propiedad MaxLength, allí pones el máximo número de carácteres que quieras que se puedan escribir en el edit, luego en el evento OnKeyDown del edit puedes poner algo así:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if Length(TEdit(Sender).Text) = TEdit(Sender).MaxLength then 
     SelectNext(TEdit(Sender), True, True);
end;

Esto te sirve para hacer el código en común para varios edits, comparas la longitud del edit en el que estés escribiendo si coincide con el valor del maxlength, si coincide llamas a la función SelectNext que pasa el foco al siguiente control coincidiendo con el orden definido en el TabOrder. seguramente habria que pulirlo un poco, pero la idea es esta.

Espero te sirva.

Saludos

[[Lepe]]

OFFTOPIC: Ese comportamiento lo veo lógico para escribir un número de serie (al estilo de windows), para una aplicación normal, yo usaría la tecla enter para saltar de un edit a otro (if key = VK_RETURN THEN selectnext....)

Saludos y espero sirva de algo.

[roman]

Yo diría, para cualquier dato de longitud fija y hay muchos casos así: códigos de productos, paises, clientes, etc, etc, etc. y es de mucha ayuda al tecleador, poder pasar al siguiente control en automático.

// Saludos

[[Lepe]]

Será que no uso esa filosofía.

Para códigos de las facturas y albaranes, uso el formato F00023/2005, por ejemplo, pero el usuario solo debe escribir "23" al pulsar intro se transforma en F00023/2006. Si desea una factura de otro año, solo tiene que escribir 23/05, al pulsar intro ya se transforma.

De momento no me topado con un caso en el que tenga que escribir todas las letras del código, pero puede presentarse.

Al ver su método, directamente pensé: "el usuario se equivoca y pulsa una letra de más en el primer Edit y el error se propaga hacia los demás".

Usando la tecla Enter solamente debe corregir un Edit.

Saludos y gracias por añadir ese escenario roman.

[ContraVeneno]

Yo sí utilizaría el Enter para autocompletar un Edit, pero no para cambiarlo al siguiente.