delphi Dbgrid 根据值的不同显示不同颜色

最新推荐文章于 2023-02-01 16:57:46 发布

单单P

最新推荐文章于 2023-02-01 16:57:46 发布

阅读量2.1k

点赞数

分类专栏： delphi 文章标签： delphi

delphi 专栏收录该内容

27 篇文章 0 订阅

订阅专栏

DBGrid1DrawColumnCell   事件中：

if Column.FieldName='STATUS' then        
      begin
          if dm.qry1.FieldByName('STATUS').AsInteger=1 then
            begin
              dbgrid1.Canvas.Font.Color:=clRed;
            end
          else
             dbgrid1.Canvas.Font.Color:=clBlack;
      end;

    dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

注意：decode以后的字段不行