point: TPoint;
Point := (sender as TStringGrid).ScreenToClient(GetMouseCursorPos);
(sender as TStringGrid).MouseToCell(Point.x, Point.y, col, row);
point: TPoint;
Point := (sender as TStringGrid).ScreenToClient(GetMouseCursorPos);
(sender as TStringGrid).MouseToCell(Point.x, Point.y, col, row);
转载于:https://www.cnblogs.com/jieke/archive/2013/02/05/2892833.html