Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.352 Beiträge
 
Delphi XE Professional
 
#2

AW: Klasse um Methode einer Eigenschaft erweitern

  Alt 29. Mai 2012, 08:29
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;
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat