Ingresar un número con formato en un control TEdit

[aromigaret]

Hola, quiero que en un tedit, al ingresar un numero lo vaya mostrando con formato '##,###,##0.00', pues se ingresan números grandes y a veces se pierden si no tienen los puntos de las separaciones de unidades de mil. Gracias

[ecfisa]

Hola.

¿ Y no te sirve usar el componente TMaskEdit para tu caso ?

Saludos

[aromigaret]

Ecfisa, ya lo probé y no funciona como deseo, pues quedan fijas las comas y puntos decimales, como las barras de las fechas. Mi idea es a medida que ingresa el numero, vaya mostrando las separaciones de decenas de mil y punto decimal. Puse una función en onchange, que vaya formateando el numero, pero no funciona ya que el cursor se posiciona en cualquier lugar al volver del formatfloat.

Código Delphi [-]
procedure TForm1.EFECTIVOChange(Sender: TObject);
var
  cadena:string;
begin

  CADENA:=STRINGREPLACE(VARTOSTR(EFECTIVO.Text),'.','',[rfReplaceAll]);
  EFECTIVO.Text:=Formatfloat('##,###,##0.00', strtofloat(CADENA));

end;