procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var coords:TGridCoord; // 这个结构体中x是列，y 是行
begin
    coords := dbgrid1.MouseCoord(x,y); // 根据鼠标位置获得行列
    Self.Caption := IntToStr(coords.X)+'   ' + IntToStr(coords.Y);
end;