【搞定】[请求]业务功能中如何捕获业务信息数据集事件？**

xhong

业务功能中捕获业务信息数据集BeforeEdit事件提示没有足够的参数：
捕获事件代码：
ProjectInfo.TProjectInfo(DocViewProjectInfo.Doc).DataSetProjectInfo.BeforeEdit:= DataSetBeforeEdit;        
事件定义代码：
procedure DataSetBeforeEdit(Sender:TDataField);
错误提示：
[错误]Biz:\OPERATION\AMCPMS\XMGL\PROJECTINFOMANAGER.FUNC.DIR\MainForm.Form.pas(78, 93): Not enough actual parameters

yancm

用数据集代理TDataSetBroker。

alang

数据集DataSet的BeforeEdit事件应该对应这样的函数类型
property BeforeEdit: TDataSetNotifyEvent;
type TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;

of object表示这个函数必须是定义在类中的函数，而不是不同的函数
类似
type
  TA =  class
  public
    procedure DataSetBeforeEdit(DataSet: TDataSet);
  end;
或者你实在是不愿意定义在类中，也可以定义成
procedure DataSetBeforeEdit(Sender: TObject; DataSet: TDataSet);

of object就是表示在函数中第一个参数是Sender，表示是这个函数属于哪个对象实例

xhong

谢谢，问题解决，结账