• cxGrid 知识点

  • 设置 TableView.OptionsView.HeaderAutoHeight 为 True 时栏目标题高度自动调整
  • 网格上选择了记录，当焦点移走时，看不到选择的记录，解决办法：修改 TableView 的属性，OptionsSelection->HideSelection 设为 False
  • 遍历选中记录：
    with ATableView.DataController do
    begin
    VOldFocusedRecordIndex := FocusedRecordIndex;

     

    for VIndex := 0 to ATableView.Controller.SelectedRowCount - 1 do
    begin
    FocusedRecordIndex := ATableView.Controller.SelectedRows[VIndex].RecordIndex;
    AQry.UpdateObject.ExecSQL(ukInsert);
    end;

    FocusedRecordIndex := VOldFocusedRecordIndex;
    end;

  • 遍历当前视图所有记录：
    with ATableView.DataController do
    begin
    VOldFocusedRecordIndex := FocusedRecordIndex;

     

    for VIndex := 0 to FilteredRecordCount - 1 do
    begin
    FocusedRecordIndex := FilteredRecordIndex[VIndex];
    AQry.UpdateObject.ExecSQL(ukInsert);
    end;

    FocusedRecordIndex := VOldFocusedRecordIndex;
    end;

  • 调用 TableView 的 DataController.Groups.FullExpand 方法展开所有节点
  • 在使用自定义数据源，删除记录时，先 BeginUpdate，处理完后再 EndUpdate，否则会偶尔抛出索引超出范围：
    tvProducePlan.BeginUpdate;
    try
    FCustomDataSource.DeleteSelectedRecord(GetSelectedIds);
    finally
    tvProducePlan.EndUpdate;
    end;
  • 获取选中记录某列的值：
    function TMainForm.GetSelectedIds: TStringArray;
    var
    VIndex: Integer;
    begin
    SetLength(Result, tvProducePlan.Controller.SelectedRowCount);
    for VIndex := 0 to tvProducePlan.Controller.SelectedRowCount - 1 do
    Result[VIndex]:= tvProducePlan.DataController.Values[tvProducePlan.Controller.SelectedRecords[VIndex].RecordIndex, 0];
    end;
  • 根据某网格的数据定位另一个网格：
    procedure TMainForm.LinkFocusRecord(AParentColumn, AChildColumn: TcxGridColumn; AParentGrid, AChildGrid: TcxGridTableView);
    var
    VIndex: Integer;
    VValue: STring;
    FocusedRecord: TcxGridFocusedRecordChangedEvent;
    begin
    FocusedRecord:= AParentGrid.OnFocusedRecordChanged;
    AParentGrid.OnFocusedRecordChanged := nil;
    try
    with AChildGrid.DataController do
    begin
    VValue := GetDisplayText(FocusedRecordIndex, AChildColumn.Index);
    end;

     

    VIndex := AParentGrid.DataController.FindRecordIndexByText(0, AParentColumn.Index, VValue, False, False, True);

    if VIndex < 0 then
    begin
    AParentGrid.DataController.ClearSelection;
    Exit;
    end;

    AParentGrid.DataController.FocusedRecordIndex := VIndex;
    AParentGrid.DataController.SyncSelectionFocusedRecord;
    finally
    AParentGrid.OnFocusedRecordChanged := FocusedRecord;
    end;
    end;

  • TableView 的 FocusedRecordChanged 事件表示当前聚焦记录改变
  • 使用 TcxGridTableView.Controller 的 TopRowIndex、LeftPos 获取或设置当前可见视图顶部行号、左边位置