OnCalcFields zur Laufzeit zuweisen

[nahpets]

Sowas?

Delphi-Quellcode:

uses
  Unit_Mit_TDeinClienDataSetNachfolgerTyp;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    function CreateClientDataSet(AOwner : TComponent) : TDeinClienDataSetNachfolgerTyp;
  public
    { Public-Deklarationen }
    MyClienDataSet : TDeinClienDataSetNachfolgerTyp;
  end;

...

function TForm1.CreateClientDataSet(AOwner : TComponent) : TDeinClienDataSetNachfolgerTyp;
begin
  Result := TDeinClienDataSetNachfolgerTyp.Create(Sender);
  Result.OnCalcFields := DeineEreignisRoutineFuerCalcFields;
end;

procedure TForm1.Create(Sender: TObject);
begin
  MyClienDataSet := CreateClientDataSet(Self);
end;