谁能变动TStringGrid的某一行的颜色呢？有谁能做到？

[jjwsoft]

TDBGrid可以，TDrawGrid也可以！

但最实用的TStringGrid有谁可以做到呢？

[jjwsoft]

有谁会啊！

[icewind]

你自己ownerdraw一下,不就可以啦

[laza]

为什么不先搜索一下。

[veryhappy]

DBGird1.Canvas.Font.Color :=clRed;

[zcheny]

响应StringGrid的OnDrawCell事件，通过这种办法不仅可以设置行的颜色，还可以设置某列的颜色，字体，字符串显示是否居中，3D效果等等。
例子代码如下：
procedure TForm.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
S: String;
SLeft, STop: integer;
begin
with Grid.Canvas do
begin
Font.Charset := GB2312_CHARSET;
Font.Height := -15;
Font.Name := '宋体';
S := CZPGrid.Cells[ACol, ARow];
if gdFixed in State then
begin
Brush.Color := Grid.FixedColor; //设置背景颜色
Font.Color := clWindowText; //设置字体颜色
FillRect(Rect); //画背景
Rect.Right := Rect.Right + 1;
Rect.Bottom := Rect.Bottom + 1;
DrawEdge(Handle, Rect, BDR_RAISEDINNER, BF_RECT); //画三维效果
if ACol = 0 then
SLeft := Rect.Right - TextWidth(S) - 6 //第一列字符显示靠左，其他列居中
else
SLeft := (Rect.Left + Rect.Right - TextWidth(S)) div 2;
STop := (Rect.Bottom + Rect.Top - TextHeight(S)) div 2;
TextOut(SLeft, STop, S);
Exit;
end;
if gdSelected in State then // 画选中的效果，看你喜欢啦
begin
Font.Color := clWhite;
Brush.Color := clWindowText;
end
else
begin
Brush.Color := CZPGrid.Color;
Font.Color := CZPGrid.Font.Color;
end;
FillRect(Rect);
TextOut(Rect.Left + 2, Rect.Top + 2, CZPGrid.Cells[ACol, ARow]);
end;
end;