Ver Mensaje Individual
  #4  
Antiguo 31-05-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
Debes tener un método en la forma con los parámetros necesarios, de acuerdo al tipo del evento.

En el caso de OnGetText, que es del tipo TFieldGetTextEvent, encontramos fácilmente en la ayuda su declaración, que es como va:

Código Delphi [-]
type TFieldGetTextEvent = procedure(Sender: TField; var Text: string; DisplayText: Boolean) of object;
property OnGetText: TFieldGetTextEvent;

Por lo tanto declaras un método, llamemolo FormatearFloatField.

Lo declaras asi:

Código Delphi [-]
type 

TForm1 = class(TForm)
  ..
private
  Procedure FormatearFloatField(Sender: TField; var Text: string; 
                  DisplayText: Boolean);
..

Lo codificas en la sección de implementation y en tiempo de ejecución podes asignarlo "dinámicamente" a cualquier field.

Código Delphi [-]
  // si estas en el mismo formulario
  query1.FieldByName('Total').OnGetText := FormatearFloatField;  
  // si lo tuvieras en un modulo de datos, por ejemplo...
  query1.FieldByName('Total').OnGetText := ModuloDatos.FormatearFloatField;  
  query1.FieldByName('Total').OnGetText := FormatearFloatField;

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