还是控件事件处理的问题.如何做??

Question

本人想写一个TXAdoquery控件,它的基类是TAdoQuery.控件想在引发BeforeClose时先做一些事情,然后再处理客户端的BeforeClose事情过程.请问如何写代码?我是这样写的:
procedure TXAdoquery.Create(Aowner:TComponent);
begin
  OldBeforeClose:=self.BeforeClose;
  self.BeforeClose:=Myproc;
end;procedure TXAdoQuery.MyProc(DataSet: TDataSet);
begin
  ....  //先处理我的内容  if assigned(OldBeforeClose) then
   OldBeforeClose(dataset);
end;
但是这样做,如果客户程序中改变了XadoQuery1.BeforeClose,就会不能正常执行MyProc的内容,我应该怎样做???

Answer 1

type TXAdoQuery = class(TADOQuery)
  protected
    procedure DoBeforeClose; override;
  end;
procedure TXAdoQuery.DoBeforeClose;
begin
   showMessage('aa');
   inherited;
end;