定位记录，删除后定位到下一条记录上
procedure TFrm_yaopinzidian.DBGridEh1CellClick(Column: TColumnEh);
begin
ADOQuery_Select.Next; //向下移动一条记录，再移动回去
LocateRecord_next:=ADOQuery_Select.FieldValues[‘cpid‘] ;
ADOQuery_Select.Prior;end.
原文：http://www.cnblogs.com/lantianhf/p/5067423.html