有左右两个cxgrid,水平对齐,行数一样,我想拉动垂直滚动条,使两边的滚动条同步滚动,有什么法子没有,要具体的,亲!

解决方案 »

  1.   

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