[Milworm99]

Empezado por ecfisa

Hola.

Un modo es que crees código para el evento OnExit de un TEdit y luego se lo asignes a todos los Edits que esperen números decimales para redondear.

Ya encontre el problema, para los que quieren que les multiplique un numero por un decimal ( ejemplo: 0.75 ) y el resultado les muestre redondeado utilizan esa función

function Redondear(const Numero: Double; const Digitos: Integer): Double;
var
  m: Double;
begin
  m:= Exp(Ln(10) * Digitos);
  Result:= Round(Numero * m + 5 / m) / m;
end;

Metodo de uso:

multiplicacion:Currency;  

multiplicacion := StrToFloatDef (edt1.Text, 0) * 0.75;
  Edt2.Text:= FormatFloat('0.00', Redondear(multiplicacion , 1));

Con esto logramos que al multiplicar 1 x 0.75 el valor nos muestre redondeado: 0.80

Y si quieren que multiplique un numero por un decimal ( ejemplo: 0.80) y el resultado les muestre redondeado, utilizamos:

Edt2.Text:= FormatFloat('0.00',multiplicacion);

Con esto logramos que al multiplicar 1 x 0.80 nos muestre el valor de : 0.80