How to create event handler and assign it to BufDataset in runtime?
lazarus / 16-Databases

----------------------------------------------------------------------
count · 2010-08-16 15:50

Hello All,
I try to assign event handler (procedure) to dataset, but get an
error. May be this happens because of bad syntax or may be a miss
something...
code:

procedure TDM.DSGoodsPropsAfterEdit(DataSet:TDataset);
begin
showmessage('aftereditevent');
end;  

some proc....
begin

DSGoodsProps:=TBufDataset.create
DSGoodsProps.AfterEdit:=DSGoodsPropsAfterEdit;  Error: Wrong number of
parameters specified
for call to "DSGoodsPropsAfterEdit"
end;

what is the correct way to assign my oun event handler to bufdataset?

----------------------------------------------------------------------
eny · 2010-08-16 16:57

Try:

Code: [Select]DSGoodsProps.AfterEdit := @DSGoodsPropsAfterEdit;

----------------------------------------------------------------------
count · 2010-08-17 06:11

Works. Thanks!