Ver Mensaje Individual
  #2  
Antiguo 05-11-2019
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Hola, puedes crear un evento común y asignarlo en la creación del datamodulo a todos los componentes que requieras. En esa asignación, puedes validar que no tenga un evento asignado para evitar inconvenientes.

Código Delphi [-]
..
private
  procedure TablaAfterPost(DataSet: TDataSet);
..

procedure TModuloDatos.TablaAfterPost(DataSet: TDataSet);
begin
  //No se que tipo de Dataset estés manejando así que acá debes manejar el tipo correcto
  TTable(Dataset).FlushBuffers;
end;

procedure TModuloDatos.DataModuleCreate(Sender: TObject);
  var
    i: integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
  begin
    //No se que tipo de Dataset estés manejando así que acá debes manejar el tipo correcto
    if Self.Components[i] is TTable
      and (not Assigned(TTable(Self.Components[i]).AfterPost))
    then
      TTable(Self.Components[i]).AfterPost := TablaAfterPost;
  end;
end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita