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
[-]
query1.FieldByName('Total').OnGetText := FormatearFloatField;
query1.FieldByName('Total').OnGetText := ModuloDatos.FormatearFloatField;
query1.FieldByName('Total').OnGetText := FormatearFloatField;
Hasta luego.