Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-15 #2 // 不知对不对,自己试验一下。 procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet); begin // 记录移动 end;