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