stringgrid中如何自定义列的颜色？

Question

在OnDrawCell事件中写代码；
  if ACol = 2 then
  begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextOut(...
  end;

Answer 1

procedure TForm1.DBGrid1DrawColumnCell 
IF ........ THEN
BEGIN
DBGrid1.Canvas.Font.Color := clBlue; 
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
END

Answer 2

谢谢你们。
不过vv_www你答的是dbgrid，我就不能给分了。

Answer 3

请　prometheusphinx(白日梦)　等一下。我忘了密码，现在给不了分，
我肯定会给的。谢谢。