急问StringGrid有关Mousemove和滚动条的问题,请高手快来!

Question

我想在stringgrid里面,移动鼠标mousemove的时候,确定当前移动到了哪个单元格?也就是cells的位置,这个还好解决:
procedure TXFPWorkForm.MemGridMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  Row:byte;
begin
  Row := Round(Int(Y/(MemGrid.DefaultRowHeight+1))-1);
end;
这个Row就是当前的行数了但是下拉滚动条翻页以后,这个 Row又重新变回从1开始了,上一页的Row就没加上来
怎么办啊?多谢了! 

Answer 1

可以使用StringGrid的MouseToCell方法得到行，列信息
var
  Col,
  Row:integer;
begin
  MemGrid.MouseToCell(X, Y, col, row);
end;
col, row就是当前的列，行信息