Delphi TDBGrid按下Tab键非最后一列时自动插入新记录问题

触发原因 #

• VCL原生TDBGrid的控件逻辑缺陷：当Options属性同时开启dgAlwaysShowEditor、dgTabbing，且绑定的DataSetAutoEdit属性为True时，部分版本（常见于Delphi 7~Delphi XE7）会出现列跳转时的状态误判，误将列跳转识别为行尾跳转，触发新增行逻辑，DataSet同步进入dsInsert状态
• 绑定DataSet的事件存在隐式编辑操作：AfterScroll、OnNewRecord、OnDataChange等事件中如果存在字段隐式赋值操作，会让DataSet提前进入dsEdit状态，Tab跳转时Grid会错误判定当前行已编辑完成，触发新增逻辑
• TDBGrid列配置异常：存在未绑定有效DataSet字段的冗余列，或者列的Visible属性动态切换时，控件内部的列索引计算错误，跳转时误判已到达最后一列

规避方案 #

• 调整控件基础配置：
  不需要永久开启编辑状态的场景下，关闭Options中的dgAlwaysShowEditor；高版本VCL可直接关闭Options中的dgAppendOnTab属性，彻底禁止Tab触发新增行的逻辑
• 自定义Tab事件拦截，覆盖原生错误逻辑：
  重写TDBGrid的OnKeyDown事件，手动控制Tab跳转逻辑，代码示例如下：

  procedure TMainForm.DBGridMainKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
    if Key = VK_TAB then
    begin
      // 仅在当前处于最后一列时才允许原生Tab处理（可根据需求完全禁止新增）
      if DBGridMain.SelectedIndex < DBGridMain.Columns.Count - 1 then
      begin
        Key := 0; // 拦截原生Tab事件
        DBGridMain.SelectedIndex := DBGridMain.SelectedIndex + 1; // 手动跳转到下一列
        DBGridMain.EditorMode := True; // 保持编辑状态，符合原有操作习惯
      end;
    end;
  end;
  

• 清理DataSet事件逻辑：
  移除DataSet相关事件中的非必要隐式字段赋值，确实需要做默认值填充的场景，在赋值前后分别调用DataSet.DisableControls和DataSet.EnableControls，避免操作同步到Grid触发错误逻辑
• 校验列配置：
  逐一核对每一列的FieldName属性，确保和绑定DataSet的字段完全匹配，删除无效冗余列，动态切换列可见性后手动刷新Grid的列索引

内容的提问来源于stack exchange，提问作者Dofunt