Ver Mensaje Individual
  #4  
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
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.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita