改变STRINGGRID中每一个单元格的颜色

[dong12]

请问各位高手我要实现改变STRINGGRID中每一个单元格的颜色，面且每一个单元格都不一样，而且每一个单元格的内容都能看见呀

[asdf008]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
vrect:trect;
begin
if (a>0) and (b>0) then
Begin
vRect := StringGrid1.CellRect(a,b);
StringGrid1.Canvas.Font.Color := clRed;
StringGrid1.Canvas.TextRect(vRect,vRect.left+2,vRect.top+1,StringGrid1.Cells[a,b]);
end;

end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
a := ACol;
b := ARow;
end;

[bitcom]

获得每个单元格的相对位置，在改变该单元格的颜色
试试吧，我也没用过