控件的事件问题,急.100分.

                            
   
   
  我在我的一个控件中为DataSoure的DataSet设了AfterScroll事件,在控件中能响应这个事件,可是在原来的那个TAdoQuery就不能响应AfterScroll控件了,  
  TAdoQuery(FDataSource.DataSet).AfterScroll:=DataSetAfterScroll;  
   
  DataSetAfterScroll是这样写的:  
   
   
  procedure   TyztControl.DataSetAfterScroll(DataSet:   TDataSet);  
  begin  
   
      inherited;  
   
      if   DataSet.Active=true   then  
      begin  
   
          if     FButton<>nil   then  
              TButton(FButton).Enabled:=(DataSet.RecNo>1);  
      end  
      else  
      begin  
          if     FButton<>nil   then   TButton(FButton).Enabled:=false;  
      end;  
   
  end;

查看回复