在Delphi中DBGrid有一個MouseMove事件,當鼠標移動時怎么知道光標在哪個單元格上面

 

 

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;