Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
Delphi 12 Athens
|
AW: OnCalcFields zur Laufzeit zuweisen
12. Apr 2017, 09:12
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;
Geändert von haentschman (12. Apr 2017 um 09:15 Uhr)
|