StringGrid的颜色显示

Question

比如当我选中StringGrid的某一单元格时,想让该单元格的整行都改变颜色,
请问各位如何实现啊?
谢谢

Answer 1

在keyup 与 mousedown两个事件中加入下面代码
var
  i, ARow: Integer;
begin
  for ARow := 1 to StringGrid1.RowCount - 1 do
  begin
    if StringGrid1.Row = ARow then
    begin
      for i := 1 to StringGrid1.RowCount - 1 do
      begin
        stringgrid1.Canvas.Brush.Color := clred;
        stringgrid1.Canvas.FillRect (stringgrid1.CellRect(i, ARow));
      end;
    end
    else
    begin
      for i := 1 to StringGrid1.RowCount - 1 do
      begin
        stringgrid1.Canvas.Brush.Color := clWhite;
        stringgrid1.Canvas.FillRect (stringgrid1.CellRect(i, ARow));
      end;
    end;
  end;
end;

Answer 2

xiaoxiao197821(你的笑对我很重要）
做的非常好
结贴吧