在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;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678