Evento comun para tablas

[[movorack]]

Es una buena opción.

Código Delphi [-]
unit TableAF;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TTableAF = class(TTable)
  private
    FAutoFlushBuffers: Boolean;
    procedure SetAutoFlushBuffers(const Value: Boolean);
    { Private declarations }
  protected
    procedure DoAfterPost; override;
    { Protected declarations }
  public
    { Public declarations }
  published
    property AutoFlushBuffers: Boolean read FAutoFlushBuffers write SetAutoFlushBuffers default True;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyBDE', [TTableAF]);
end;

{ TTableAF }

procedure TTableAF.DoAfterPost;
begin
  inherited;

  if FAutoFlushBuffers then
    Self.FlushBuffers;
end;

procedure TTableAF.SetAutoFlushBuffers(const Value: Boolean);
begin
  FAutoFlushBuffers := Value;
end;

end.