关于 TStringGrid 控件的使用 ( 积分: 50 )

由于英文不好，所以这个控件的帮助看起来很吃力，我想找到如何控制它的每一个单元格的显示格式的语句，比如显示什么样的字体，如何指定一种颜色做指定单元格的背景（比何红色背景）。

由于英文不好，所以这个控件的帮助看起来很吃力，我想找到如何控制它的每一个单元格的显示格式的语句，比如显示什么样的字体，如何指定一种颜色做指定单元格的背景（比何红色背景）。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
bColor, fColor: TColor;
FName: string;
begin
case (arow mod 2 = 0) of
true:
begin
bColor := clbackground;
fColor := Clred;
FName := 'Fixedsys';
end;
false:
begin
bColor := clWhite;
fColor := Clblack;
FName := 'MS Sans Serif';
end;
end;
tdrawgrid(stringgrid1).canvas.brush.color := bColor;
tdrawgrid(stringgrid1).Canvas.Font.Color := fColor;
tdrawgrid(stringgrid1).Canvas.Font.Name := FName;
tdrawgrid(stringgrid1).Canvas.TextRect(rect,rect.Left,rect.Top,stringgrid1.Cells[acol,arow]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Integer;
begin
for J := 0 to stringgrid1.RowCount - 1 do
for I := 0 to stringgrid1.ColCount - 1 do
stringgrid1.Cells[I, J] := 'test' + IntToStr(I) + IntToStr(J);

end;

jfyes 非常感谢！