请教这样一个问题：怎样随意改变StringGrid的单元格的底色，并且在改变下一个单元格底色后前面的设置继续保留原状。

Question

自己画。
在OnDrawCell事件中处理。

Answer 1

我是一个初学者：sunhuiNO1(2B)能不能具体一点，最好能附点代码。谢谢！！！

Answer 2

你的意思是每一个小格的颜色可以个不相同是吧？
那需要用数组纪录颜色，然后重载ondraw事件。

Answer 3

var
FNewOldColor,FOldColor: TColor;FOlColor :=StringGrid1.Color;
FNewOldColor :=ClRed;
StringGri1.Color :=FNewOldColor;

Answer 4

procedure TjsfxFrm.sshqlistDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  strFsize, valFsize: integer;
  clup, cldown, clp: tcolor;
  font: tfont;
  width, height, cpos: integer;
  tmpGrid: Tstringgrid;
  tmpstr, tmpstr1: string;
  tmpreal, tmppre, tmpclose: real;
  realfmt: string;
  intfmt, scrb, zqrb: string;
begin
          tmpgrid := sender as tstringgrid;
          if(ARow mod 2)=0 then
          tmpgrid.Canvas.Brush.Color := clblack
          else
          tmpgrid.Canvas.Brush.Color := clRed
          tmpgrid.Canvas.FillRect(Rect);
end;