Delphi里DBGrid单元格颜色随内容显示，求代码

Question

DBGrid里我导入的access表里，如果我想显示表格单元格的颜色，比如颜色名称字段内容为黑色，面漆颜色字段内容为$FFFFFFFF，怎样用代码实现将$FFFFFFFF这个单元格的颜色随着内容显示黑色？

Answer 1

在OnDrawColumnCell事件中实现
   if Column.FieldName = 'ID' then
   begin
      if (state = [gdSelected]) or (state = [gdFocused, gdselected]) then
      begin
         DBGridEh1.Canvas.Font.Color := clWhite;
         DBGridEh1.Canvas.Brush.Color := clNavy;
      end
      else
      begin
         DBGridEh1.Canvas.Font.Color := clBlack;
         DBGridEh1.Canvas.Brush.Color := clSkyBlue; //clBtnFace;
      end;
   end

Answer 2

先设置DBGRID1的DefaultDrawing属性为：False，然后在DBGrid1的OnDrawColumnCell事件中写入下列代码。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if ADODataSet1.FieldByName('Matl').AsFloat<0.1 then
    DBGrid1.Canvas.Font.Color  := clRed
 else
    DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.FillRect(Rect);
  DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);
end;

Answer 3

很久不用DBGRID了,DBGRIDEH功能强大很多.