Evento comun para tablas

[[movorack]]

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;