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.
Ejemplo:
Código Delphi
[-]
...
procedure TForm1.EditsExit(Sender: TObject);
var
d : Double;
begin
d := StrToFloatDef(TEdit(Sender).Text, 0);
TEdit(Sender).Text := FormatFloat('0.00', Redondear(d, 1));
end;
De este modo, cuando el Edit activo pierda el foco, mostrará el redondeo que deseas. (
StrToFloatDef )
Saludos
