请教两个cxgrid同步滚动问题！

hzg98 2013-03-26 09:07:55

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

...全文

462 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

hzg98 2013-03-26

打赏
举报

太经典了，居然可以这样！测试成功，完全达到需要，谢谢！

simonhehe 2013-03-26

打赏
举报

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