Delphi中TDBGrid无OnRowChange事件时的行选中逻辑解决方案

针对你遇到的TDBGrid无法通过行切换事件控制字段启用/禁用的问题，以下是几个实用的替代方案：

方案1：利用TDataSource的OnDataChange事件 #

这是最常用且可靠的方案，TDBGrid绑定的数据源会在当前记录切换（包括行选中变化）、字段内容修改时触发该事件，完全覆盖你需要的场景。

示例代码：

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  // 假设记录类型字段名为RecordType，根据其值控制字段状态
  case DataSet1.FieldByName('RecordType').AsInteger of
    0: // 类型A
      begin
        EditField1.Enabled := True;
        EditField2.Enabled := True;
        EditField3.Enabled := False;
        EditField4.Enabled := False;
      end;
    1: // 类型B
      begin
        EditField1.Enabled := False;
        EditField2.Enabled := False;
        EditField3.Enabled := True;
        EditField4.Enabled := True;
      end;
  end;
end;

方案2：使用TDataset的AfterScroll事件 #

如果只需要在**切换行（滚动记录）**时执行逻辑，而非字段编辑时，这个事件更精准——它仅在数据集切换到新记录后触发（包括键盘上下键、代码切换行的场景）。

示例代码：

// 先封装通用的字段状态更新方法
procedure TForm1.UpdateFieldEnabledState;
begin
  if DataSet1.FieldByName('RecordType').AsString = 'Special' then
  begin
    EditField1.Enabled := True;
    EditField2.Enabled := True;
    EditField3.Enabled := False;
    EditField4.Enabled := False;
  end
  else
  begin
    EditField1.Enabled := False;
    EditField2.Enabled := False;
    EditField3.Enabled := True;
    EditField4.Enabled := True;
  end;
end;

// 绑定AfterScroll事件
procedure TForm1.DataSet1AfterScroll(DataSet: TDataSet);
begin
  UpdateFieldEnabledState;
end;

方案3：TDBGrid的OnCellClick/OnClick事件（仅鼠标场景） #

如果只需要处理鼠标点击切换行的情况，可以用这个方案，但要注意：点击同一行的不同单元格也会触发事件，需要通过书签判断是否真的切换了行。

示例代码：

var
  LastRowBookmark: TBookmark;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if DataSet1.Active then
    LastRowBookmark := DataSet1.GetBookmark;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if not DataSet1.BookmarkValid(LastRowBookmark) then Exit;
  // 判断是否切换到了新行
  if not DataSet1.BookmarkEquals(LastRowBookmark) then
  begin
    UpdateFieldEnabledState;
    DataSet1.FreeBookmark(LastRowBookmark);
    LastRowBookmark := DataSet1.GetBookmark;
  end;
end;

额外注意事项 #

• 确保操作数据集前，数据集处于Active状态，避免FieldByName调用报错。
• 新增记录时，可通过判断DataSet.State = dsInsert，单独设置字段的默认启用状态。
• 把字段状态控制逻辑封装成独立方法，避免多个事件中重复写相同代码。

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