我想根据字段值内容的不同在dbgridEH中来分颜色显示，怎么总是报错？？？各位大哥进来帮小弟一下！！

Question

我的代码如下：
procedure TfrmBdDetail.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  if adoquery1.fieldbyname('合计数量').AsInteger> adoquery1.fieldbyname('KC').AsInteger then
  begin
         (Sender as TDBGridEH).Canvas.Brush.Color := $008080FF;
  end;
  DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  //这里总是报错：Incompatible types
end;

Answer 1

procedure TfrmBdDetail.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  if adoquery1.fieldbyname('合计数量').AsInteger> adoquery1.fieldbyname('KC').AsInteger then
  begin
         Canvas.Brush.Color := $008080FF;
  end;
  DefaultDrawColumnCell(Rect,DataCol,Column,State); //这里总是报错：Incompatible ypes
end;

Answer 2

在OnGetCellParams事件写试一下。