我在我的一个控件中为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;