delphi - cxGrid 防止分组删除

Question

在我的 cxGrid 中，我有按日期分组的记录。但是，当用户选择分组日期并点击删除时，在该日期下提交的所有记录都会被删除。有没有办法防止这种情况？我希望单独删除记录。

编辑：我忘了提：我正在使用网格的 GroupByBox 函数进行分组。

Answer 1

gridView.Controller.FocusedRow.IsData您可以在删除操作之前 检查属性。这是示例：

1. 按设置禁用“自动删除”功能gridView.OptionsData.Deleting = False;

2. 在 gridView 的事件中添加代码OnKeyUp：

   procedure TmyForm.gridViewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
   begin
     if (Key = VK_DELETE) and (gridView.Controller.FocusedRow <> nil) then
     begin
       if gridView.Controller.FocusedRow.IsData then
       begin
         gridView.DataController.DeleteFocused;
       end
       else
       begin
         ShowMessage('You can''t delete group records.');
       end;
     end;
   end;
   

如果您使用默认数据集操作或cxDBNavigator尝试以下操作：

1. 通过设置禁用“确认删除”功能gridView.OptionsData.DeleteConfirmation = False;

2. 在数据集事件中添加“中止”代码BeforeDelete：

   procedure TmyForm.DataSetBeforeDelete(DataSet: TDataSet);
   begin
     if (gridView.Controller.FocusedRow <> nil)
       and not gridView.Controller.FocusedRow.IsData then
     begin
       ShowMessage('You can''t delete group records.');
       Abort;
     end;
   end;
   

3. 将“中止”代码添加到代码导航器事件OnButtonClick（如果您不想显示删除确认）：

   procedure TmyForm.DBNavigatorButtonsButtonClick(Sender: TObject; AButtonIndex: Integer; var ADone: Boolean);
   begin
     if (AButtonIndex = NBDI_DELETE)
       and (gridView.Controller.FocusedRow <> nil)
       and not gridView.Controller.FocusedRow.IsData then
     begin
       ShowMessage('You can''t delete group records.');
       Abort;
     end;
   end;