ADOQuery, Ereignisse und Proceduren

[omata]

Moin,

leite die ADO-Komponente neu ab, überschreibe den Kontruktor und weise in diesem die Ereignisse zu.

konkret:

Delphi-Quellcode:

type
  TMyADOQuery = class(TADOQuery)
  private
    procedure MyBeforeOpen(DataSet: TDataSet);
     :
  public
    constructor create(AOwner:TComponent); reintroduce;
  end;

:
:

constructor TMyADOQuery.create(AOwner: TComponent);
begin
  inherited create(AOwner);
  Self.BeforeOpen:=MyBeforeOpen;
end;

procedure TMyADOQuery.MyBeforeOpen(DataSet: TDataSet);
begin
  ... dein Ereigniscode ...
end;

MfG
Thorsten