关于2个stringgrid ，滚动关联的问题。

Question

stringgrid 或者类似memo 的控件，我想实现一个功能，一个窗体里面上下有2个相同的stringgrid 都有横向的滚动条，我想做到一个功能，我滚动下面的stringgird 的滚动条时候上面的那个也滚动同样的距离。例如上面一个共1－100列，下面那个也是1－100列，当我横向浏览下面，或者上面的第80列时候，另外一个也处在同样的位置。stringgrid 没有cxgrid那样的表头功能，所以我只有自己做一个表头放上面。但是行数太多，没法同步滚动。最好是能实现同步滚动，然后选择某个单元格的时候，另外一个stringgrid也处在同样的位置。

Answer 1

在StringGrid1的TopLeftChanged写上下面几句
procedure TForm1.StringGrid1TopLeftChanged(Sender: TObject);
begin
  StringGrid2.TopRow := StringGrid1.TopRow;
  StringGrid2.LeftCol := StringGrid1.LeftCol;
end;