OnCalcFields zur Laufzeit zuweisen

[haentschman]

Hallöle...

Delphi-Quellcode:

unit WzgMgrFU

interface

uses MyDBUnit ...;

type
  TWzgMgrF = class(TForm)
  ...
    procedure FormCreate(Sender: TObject);
  ...
  private // besser 
    procedure DoCDSWzgCalcFlds(DataSet: TDataSet); // Mit Do als Präfix kann man die Eventhander besser auseinanderhalten.
  public
 
  end;

implementation

var
  CDSWzg : TWzg;
  
procedure TWzgMgrF.FormCreate(Sender: TObject);
begin
  ...
  CDSWzg := TWzg.Create(Self);
  CDSWzg.OnCalcFields := DoCDSWzgCalcFlds;
end;


procedure TWzgMgrF.DoCDSWzgCalcFlds(DataSet: TDataSet);
begin
  ...
  
end;