Ver Mensaje Individual
  #2  
Antiguo 10-06-2005
fidel fidel is offline
Miembro
 
Registrado: mar 2005
Posts: 381
Reputación: 20
fidel Va por buen camino
Hola:

En el DataSet que alimenta el DBGrid, FielEditor, seleccionas el campo que quieres que tenga solo dos decimales, y en la propiedad DisplayFormat pones una mascara así #,###,##0.00

Esto otro funciona con los edits pero no se con DBEdit, puedes probar:
En el evento OnKeyPres pones esto
Código Delphi [-]
procedure TFPrueba.EDosKeyPress(Sender: TObject; var Key: Char);
var
  i: integer;
begin
  DecimalSeparator := ',';
  //controlar entrada solo números
  if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then  Key := #0;
  //cambiar punto decimal por coma
  if key = '.' then key := ',';
  //controlar entrada una sola coma
  for i := 1 to length(EDos.Text) do
    if ( copy(EDos.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then  Key := #0;
end;
Responder Con Cita