怎么自定义控件的事件函数？ 急! 在线等

Question

A页面中有一个控件 ClientDataSet, 
B页面中的一个 DataSource控件，　访问时, 让B.DataSource.DataSet = A.ClientDataSet;问: 
我想在 B 页面中定义一个函数，
指向 A.ClientDataSet 的 OnBeforePost事件应该怎么做？ 急！在线等

Answer 1

A.ClientDataSet.OnBeforePost := B.自定义函数 //参数列表要相同

Answer 2

var
  FuncBeforePostEvent : TDataSetNotifyEvent;
begin
  FuncBeforePostEvent := ClientDataSet1.BeforePost;
  ClientDataSet2.BeforePost :=  FuncBeforePostEvent;
end;

Answer 3

楼上的误会我意思了：
我要的是:
A.ClientDataSet.OnBeforePost := B.自定义函数 //参数列表要相同请问 B.自定义函数 这个函数怎么定义？

Answer 4

procedure TForm.ClientDataSetAfterPost(DataSet: TDataSet);

Answer 5

//声明事件函数
procedure CalcFields(DataSet: TDataSet);//定义事件
procedure TForm1.Button1Click(Sender: TObject);
begin
    self.ClientDataSet1.OnCalcFields:= CalcFields(self.ClientDataSet1);
end;按上面的说法, 这么写不对啊?再请教!1!!!

Answer 6

还没有搞定，能不能说详细！！！！//声明事件函数
procedure CalcFields(DataSet: TDataSet);//定义事件
procedure TForm1.Button1Click(Sender: TObject);
begin
    self.ClientDataSet1.OnCalcFields:= CalcFields(self.ClientDataSet1);
end;按上面的说法, 这么写不对啊?再请教!1!!!