Klasse um Methode einer Eigenschaft erweitern

[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;