FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
TDataSetNotifyEvent
hola gente, necesito deshabilitar el evento onCalcFields de un dataset momentaneamente.
para lo cual hice lo siguiente: Código:
... var p : TDataSetNotifyEvent; begin ... p:= dataset.OnCalcFields; dataset.OnCalcFields := nil; ... // calculos con los campos ... dataset.OnCalcFields := p; dataset.OnCalcFields(dataset); dataset.Post; ... para lo cual le encontre una solucion un poco sucia: Código:
... var p : TDataSetNotifyEvent; begin ... p:= dataset.OnCalcFields; dataset.OnCalcFields := nil; ... // calculos con los campos ... dataset.OnCalcFields := p; dataset.Post; dataset.Edit; // con el edit y el post se ejecuta el evento dataset.Post; // onCaclfield sin errores aunque no este definido ... gracias por su ayuda fede.- Argentina.-
__________________
El secreto de la libertad está en no tener miedo. |
#2
|
|||
|
|||
me retracto, la solucion sucia no funciona.
peor aun.
__________________
El secreto de la libertad está en no tener miedo. |
#3
|
|||
|
|||
SOLUCION:
Código:
... var p : TDataSetNotifyEvent; pt : pointer; begin ... p:= dataset.OnCalcFields; pt := @dataset.OnCalcFields; dataset.OnCalcFields := nil; ... // calculos con los campos ... dataset.OnCalcFields := p; if pt <> nil then dataset.OnCalcFields(dataset); ...
__________________
El secreto de la libertad está en no tener miedo. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|