procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
beginend;
//or
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
beginend;
beginend;
//or
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
beginend;
使用它的数据源 TTable或者TTQuery的AfterScroll 或者BeforeScroll比较方便。