Delphi技术问询：如何通过ButtonClick设置StringGrid主对角线单元格颜色

你踩了个很常见的小坑——StringGrid1.Cells[i,j]是用来操作单元格文本内容的属性，它本身根本没有Color这个属性，所以直接写StringGrid1.Cells[i,j].color:=clRed;肯定不会有效果啦。下面给你两种靠谱的解决方法：

方法一：用OnDrawCell事件（推荐） #

这是Delphi里自定义单元格绘制的标准做法，能保证单元格在任何状态下（比如滚动、内容更新）都保持红色：

1. 找到你的StringGrid控件，在属性面板的「Events」标签里找到OnDrawCell事件，双击进入事件处理函数。
2. 把下面的代码粘进去：

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  // 判断是否为主对角线单元格（行列索引相等，若有固定行列可调整条件）
  if ACol = ARow then
  begin
    // 设置背景刷为红色
    StringGrid1.Canvas.Brush.Color := clRed;
    // 填充单元格背景
    StringGrid1.Canvas.FillRect(Rect);
  end
  else
  begin
    // 非对角线单元格用控件默认背景色
    StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
    StringGrid1.Canvas.FillRect(Rect);
  end;
  // 绘制单元格文本（必须加上，否则文本会消失）
  StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
end;

如果你的StringGrid有固定行/列（比如左上角的表头行/列），可以把判断条件改成(ACol = ARow) and (ACol > 0) and (ARow > 0)，这样就不会把表头的单元格也染成红色了。

方法二：在ButtonClick事件中直接绘制 #

如果你只想在点击按钮时一次性设置，也可以这么做，但要注意关闭默认绘制避免覆盖：

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  CellRect: TRect;
begin
  // 关闭默认绘制，否则手动画的背景会被覆盖
  StringGrid1.DefaultDrawing := False;
  
  // 遍历主对角线（取行列数较小的那个，避免越界）
  for i := 0 to Min(StringGrid1.ColCount - 1, StringGrid1.RowCount - 1) do
  begin
    // 获取当前单元格的矩形区域
    CellRect := StringGrid1.CellRect(i, i);
    // 设置背景色为红色
    StringGrid1.Canvas.Brush.Color := clRed;
    // 填充背景
    StringGrid1.Canvas.FillRect(CellRect);
    // 绘制单元格文本
    StringGrid1.Canvas.TextOut(CellRect.Left + 2, CellRect.Top + 2, StringGrid1.Cells[i, i]);
  end;
  
  // 刷新控件，让修改立即显示
  StringGrid1.Invalidate;
end;

这种方法的缺点是：如果之后StringGrid的内容或布局变化（比如添加行列），需要重新点击按钮才能更新对角线的颜色，所以更推荐第一种方法。

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