Klasse um Methode einer Eigenschaft erweitern

[fillibuster]

Hallo,

ich habe ein kleines Verständnisproblem bei der Erweiterung meiner Klasse:

Delphi-Quellcode:

  TDBGriddata = class (TObject)
  private
    FQuery      : TZQuery;
    FDataSource : TZDataSource;
  public
    constructor Create; virtual;
    destructor Destroy; override;
    .....
    property DataSource : TDataSource read FDataSource;
    property DataSet : TUniQuery read FQuery;
  end;

Jetzt möchte ich meine Klasse um eine Methode von FQuery erweitern (AfterOpen(DataSet: TDataSet)). Wie mach ich das?

Viele Grüße ...

[DeddyH]

Ungetestet:

Delphi-Quellcode:

private
  FAfterOpen: TDatasetNotifyEvent;
  procedure SetAfterOpen(aEvent: TDatasetNotifyEvent); 
  ...
public
  property AfterOpen: TDatasetNotifyEvent read FAfterOpen write SetAfterOpen;

...

procedure TDBGriddata.SetAfterOpen(aEvent: TDatasetNotifyEvent); 
begin
  FQuery.AfterOpen := aEvent;
end;

[fillibuster]

Hallo,

herzlichen Dank für deine Antwort. Wie kann ich nun in einer Instanz meiner Klasse die Methode benutzen?

Viele Grüße ...

[vagtler]

Zitat von fillibuster:

[...] Jetzt möchte ich meine Klasse um eine Methode von FQuery erweitern (AfterOpen(DataSet: TDataSet)). Wie mach ich das? [...]

Was genau meinst Du mit "um eine Methode von FQuery erweitern"?

Zitat von fillibuster:

[...] Wie kann ich nun in einer Instanz meiner Klasse die Methode benutzen? [...]

Das Event? Oder welche Methode meinst Du genau?

[DeddyH]

Ich verstehe Dich gerade nicht ganz. Was genau möchtest Du denn erreichen, dass Deine Klasse etwas tut, nachdem die interne Query geöffnet wurde?

[himitsu]

Tipp:
Leite doch von TComponent ab, dann könntest du diese Komponente uch auf eine Form pappen (natürlich dazu noch in ein Designtime-Package + RegisterComponent)
Oder nimm gleich deine TZDataSource als Vorfahre, dann kannst zu deine Daten-Quelle auch direkt an andere Kompnenten (z.B. als DataSource für ein Grid) übergeben.

Und wenn du die Komponenten selber ableitest, dann kann man die "internen" Funtionen übrrschreiben, womit die Events ala AfterOpen frei bleiben.
Man kann später immernoch was Anderes an diese Events hängen. (vorallem praktisch, wenn man die Komponente auf eine Form gepappt hat und das Event nochmals ebenfals dort verwenden will.
AfterOpen wird z.B. über die virtuelle Methode TDataSet.DoAfterOpen aufgerufen.


Ansonsten wurde ja schon das Wichtigste, zum eigentlichen Problem, gefragt.