if (col=0) and (row=0) then
  begin
    col:=dbgrid1.Col ;
    row:=dbgrid1.row ;
    currow:= dbgrid1.row ;
    curcol:= dbgrid1.Col ;
  end
  else begin
  //第二次按下鼠标,取得当前位置
   currow:= dbgrid1.row ;
   curcol:= dbgrid1.Col ;
  // i:=clientdataset1.GetBook ;
   end;
  if (currow<>row) or (curcol<>col) then
  begin
  //  showmessage('changed');    //这里进行处理
    row:=dbgrid1.row;
    col:=dbgrid1.Col;
  end;
这是我 写的鼠标离开cell就能发生的,但是我不知道如何能使鼠标前一位置的行数据更新
指教