如:“中国共产党”将“共产党”显示为红色。
解决方案 »
- 我用idtime取网页时间出错,请求帮助!
- 怎样以记录文件的形式存储用户信息?
- QRBand1BeforePrint 的奇怪问题,期待解决
- 被 listbox整瓜了???help??help???
- TwebBrowser链接到TreeView的拖放问题
- 好多人都转向.NET或JAVA了,Delphi到底还有没有前途!?招聘的可是越来越少了!
- 散分!!!
- 請問ADODataSet1.Locate的準確查詢是如何用的?
- 本人求购delphi5开发人员指南,新旧都行
- 100元解决打印问题,决不食言
- 请问如何在treeview对象上设置底图,就像flashget 1.3那样?
- 请问那里有虚拟的项目,最好是数据库方面的,让刚毕业的我锻炼锻炼??????????????
Dbgrid的DrawColumnCell事件中加入以下代码就可以了:
If Query.fieldbyname('字段名').values 满足条件 then
Begin
Dbgrid.Canvas.Brush.Color := 颜色(如:clInfoBk) ;
Dbgrid.DefaultDrawColumnCell( Rect, DataCol, Column,[gdFixed,gdFocused,gdSelected] );
End ;
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;