ADOQuery, Ereignisse und Proceduren

[Tau]

Hallo Leute

habe auch wieder mal ein Proplem!

Habe einige ADOQuery (80-100) und für alle solte ich mehrere Proceduren einbinden.

AfterCancel
AfterDelete
AfterPost
BeforeDelete
BeforeEdit
BeforePost

Die Proceduren siend alle vertig und funktioniren alle einwand frei.

Jezt meine Frage wie kann ich das Problem mit so wenig wie möglich Progamier aufwand lösen.
So das ich nicht für alle Query die oben angefürten Proceduren einfügen müss.

Ich habe schon eine abgeleitete version der ADOQuery erstellt.
Nur weis ich beim besten willen nicht wie ich die Proceduren und die Ereignise verbinden kann.

H I L F E ! ! !

Gruss
Tau

[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

[Tau]

Hallo Thorsten

DANKE für den Tipp

ist genau das was ich gesucht habe

mfg.
Tau