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

                            
本人想写一个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的内容,我应该怎样做???  
 

查看回复