Escribir en Edit
 

Hola, espero que puedan ayudarme, tengo un Edit en el que el usuario ingresa una serie de números con el siguiente formato: 25-456-1
Como puedo hacer que cuando el usuario este escribiendo los números en el Edit, se vaya agregando en forma automática el signo -


Desde ya muchas gracias.

Hola lucas.

Creo que te va a resultar mucho mas sencillo usar un TMaskEdit, por ejemplo para tu caso:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  MaskEdit1.EditMask:= '99-999-9;1; '; // definir la máscara (se puede hacer desde el Object Inspector)
end;

Si luego deseas el resultado sin los guiones, podes hacer:

Código Delphi [-]
var
  str : string;
begin
  str := StringReplace(MaskEdit1.Text, '-', '', [rfReplaceAll]); 
  ...

Saludos. :)

Hola ecfisa, gracias por responder, voy a intentar con tu sugerencia.