在cxSpreadSheet 中，获得鼠标下的单元格

学习大师原创文档，请勿转载，侵权必究。

procedure TForm1.cxSpreadSheet1MouseMove(Sender: TObject;   

   Shift: TShiftState; X, Y: Integer);   

var   

   AHitTestInfo: TcxSSHitTestInfo;   

begin   

   with TcxSpreadSheet(Sender) do   

    HitTest(Point(X, Y), AHitTestInfo);   

   if AHitTestInfo.HitType = htSheetCell then   

    Caption := 'Col = ' + IntToStr(AHitTestInfo.CellCol) + ' Row = ' + IntToStr(AHitTestInfo.CellRow);   

end;