Delphi 7里DBGridEh里行变颜色的代码
 
例如在DBGridEh的OnDrawColumnCell事件里输入如下代码：
 
if  ADOQuery1.FieldByName('status').AsString='True'  then   //如果条件成立
     begin
       DBGridEh1.Canvas.Brush.Color:=clSilver;         //行底色变色
       DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     end;
 
另一种：
 
if  ADOQuery1.FieldByName('status').AsString='True'  then   //如果条件成立
     begin
       DBGridEh1.Canvas.Font.Color:=clMaroon;     //行字体变颜色
       DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     end;