Delphi 10.2.3中DBGrid如何根据其他列设置指定单元格背景色？

嗨，我完全懂你的处境！你已经找对了关键的事件——OnDrawColumnCell，其实只要在这个事件里多做几步判断，就能实现你要的效果。核心思路是：在绘制每个单元格时，先判断它是不是你要处理的整数列，然后去同一行的文本列拿值做条件判断，再结合整数列自身的值来修改背景色。

下面给你一个具体的代码示例，假设你的文本列FieldName是TextColumn，整数列FieldName是IntColumn，DBGrid关联的数据集是ADOQuery1：

procedure TYourForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  TargetText: string;
  IntValue: Integer;
begin
  // 先绘制默认单元格样式，避免手动处理所有细节
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

  // 只处理目标整数列
  if Column.FieldName = 'IntColumn' then
  begin
    // 获取当前行文本列的内容
    TargetText := ADOQuery1.FieldByName('TextColumn').AsString;

    // 这里替换成你的文本列判断条件，比如等于某个特定值
    if TargetText = '需要触发颜色变更的文本' then
    begin
      // 获取当前整数列的值
      IntValue := ADOQuery1.FieldByName('IntColumn').AsInteger;

      // 仅当整数列值不为零时修改背景色
      if IntValue <> 0 then
      begin
        // 设置背景色（这里用clSkyBlue举例，可替换为你需要的颜色）
        DBGrid1.Canvas.Brush.Color := clSkyBlue;
        // 填充单元格区域，覆盖默认背景
        DBGrid1.Canvas.FillRect(Rect);
        // 重新绘制单元格文本，防止被背景覆盖
        DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.AsString);
      end;
    end;
  end;
end;

关键细节说明： #

• 为什么先调用DefaultDrawColumnCell？：这样可以让DBGrid先画出默认的单元格样式（比如选中状态、网格线等），我们只需要覆盖需要修改的背景和文本，省去手动处理所有UI细节的麻烦。
• 如何获取同行其他列的值？：在OnDrawColumnCell事件触发时，数据集的当前行恰好就是DBGrid正在绘制的这一行，所以直接用FieldByName就能拿到对应列的内容，不需要额外定位行。
• 多整数列处理：如果有多个整数列需要按相同规则修改，只需把判断条件改成if Column.FieldName in ['IntCol1', 'IntCol2', 'IntCol3']即可。
• 文本位置调整：Rect.Left + 2和Rect.Top + 2是为了让文本和默认绘制的位置对齐，避免贴边显得生硬，你可以根据需要调整这个偏移量。

注意事项： #

• 确保代码中使用的FieldName和你数据集里的字段名完全一致，大小写也要匹配（Delphi默认不区分，但严谨点更好）。
• 如果你的DBGrid开启了dgRowSelect选项，单个单元格的背景色修改依然有效，但要注意选中行的样式可能会覆盖你的自定义颜色，此时可以在判断里加上if not (gdSelected in State)来避免冲突。
• 不管你用的是ADOQuery、ClientDataSet还是其他数据集组件，这个逻辑都是通用的，只需替换数据集变量名即可。

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