请问两个cxgrid同步滚动有关问题

请教两个cxgrid同步滚动问题！
有左右两个cxgrid，水平对齐，行数一样，我想拉动垂直滚动条，使两边的滚动条同步滚动，有什么法子没有，要具体的，亲！
[解决办法]
写view的onTopRecordIndexChanged事件

{
TForm13改成自己的窗体类名
例子中两个cxgrid, view是banded table, 分别叫cxGridBandedTableView1和cxgrdbndtblvw
delphi XE测试通过
}
procedure TForm13.cxgrdbndtblvwTopRecordIndexChanged(Sender: TObject);
begin
  if not(Sender is TcxGridBandedTableView) then exit;

  if TcxGridBandedTableView(Sender).Name = cxgrdbndtblvw.Name then
    cxGridBandedTableView1.Controller.TopRecordIndex :=
      cxgrdbndtblvw.Controller.TopRecordIndex
  else
  if TcxGridBandedTableView(Sender).Name = cxGridBandedTableView1.Name then
    cxgrdbndtblvw.Controller.TopRecordIndex :=
      cxGridBandedTableView1.Controller.TopRecordIndex;
end;