请问如何自定义DBGrid中激活的cell的颜色？

Question

procedure TForm1.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdselected in state then
  begin
    dbgrid3.Canvas.Brush.color:=clred;
    dbgrid3.defaultdrawcolumncell(rect,datacol,column,state);
  end;
end;

Answer 1

记得要设定:
DefaultDrawing: False 
{Delphi就不绘制网格或其内容，必须自行在TDBGrid的OnDrawDataCell事件中
提供自己的绘制例程（自画功能）。}

Answer 2

这样设置的是Row的颜色，我想设置的是row和column的交叉处，也就是一个单元格的颜色。