procedure TF_Resource2.UniDBGrid1DrawColumnCell(Sender: TObject; ACol, ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs); begin if Column.FieldName='zt' then begin if Column.Field.AsString='通过' then begin Attribs.Font.Color:=clGreen; end; end ; end; --------------------- 作者:ozhy111 来源:CSDN 原文:https://blog.csdn.net/ozhy111/article/details/83341456 版权声明:本文为博主原创文章,转载请附上博文链接!