在ondrawcell事件中写点代码就行。
if ARow=Stringgrid1.row then
begin
...textout(...);
...fillrect(...);
end
else
begin
...
end;
if ARow=Stringgrid1.row then
begin
...textout(...);
...fillrect(...);
end
else
begin
...
end;
begin
if ARow = StringGrid1.Row then
begin
StringGrid1.Brush.Color := clMoneyGreen;
StringGrid1.FillRect(Rect);
end;
end;