如:“中国共产党”将“共产党”显示为红色。

解决方案 »

  1.   

    一个笨方法,写自己的DBGrid控件
      

  2.   

    答案一:
    Dbgrid的DrawColumnCell事件中加入以下代码就可以了:
    If Query.fieldbyname('字段名').values 满足条件 then
    Begin
    Dbgrid.Canvas.Brush.Color := 颜色(如:clInfoBk) ;
    Dbgrid.DefaultDrawColumnCell( Rect, DataCol, Column,[gdFixed,gdFocused,gdSelected] );
    End ;
      

  3.   

    procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    begin
    if  (query1.fieldbyname('xxx').value=yyy) then
      begin
        dbgrid1.Canvas.Brush.Color :=$0080FF80;//很好看
        dbgrid1.Canvas.Font.color:=clblack;
        dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
      end ;
    end;