如何在客户端为服务器端的datamod的dataset定制事件？

如何在客户端为服务器端的datamod的dataset定制事件？

1、在客户端定义Event Handler：

......

public
    procedure ABSQueryAfterScroll(DataSet: TDataSet);

......

implementation

procedure TMainForm.ABSQueryAfterScroll(DataSet: TDataSet);
var
  ss:string;
begin
  ss:=DataSet.Fields[1].AsString;
  ShowMessage('scroll!'+ss);
end;

2、为dataset事件赋值：

procedure TMainForm.UniFormActivate(Sender: TObject);
begin  
    UniMainModule.ABSQuery1.AfterScroll:= ABSQueryAfterScroll;  
    UniMainModule.ABSQuery1.Open;
end;

3、在窗口关闭时取消此事件赋值：

procedure TMainForm.UniFormDestroy(Sender: TObject);
begin
   UniMainModule.ABSQuery1.AfterScroll:=nil;
end;