Ver Mensaje Individual
  #6  
Antiguo 28-04-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 28
jachguate Va por buen camino
Es que el evento OnValidate se disparará solamente si el usuario ha introducido un valor que si es un número de coma flotante, pues el OnValidate no se encarga de "validar" cuestiones sintácticas.

Pienso que en el Evento OnSetText podrias capturar el error... pero hay que probar.

Bastará algo como:

Código Delphi [-]
Procedure Table1Campo1SetText(sender : TField; const Text: string);

Begin
  try
    sender.Value := StrToFloat(Text);
  except
    on EConvertError do
    Begin
      ShowMessage('Valor inválido!');
    End;
  end;
End;

hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita