向各位高手请教

Question

我作的一个东西，里面有这样一个问题，一个表中其中有一个字段为jjff（解决方法），这个字段为空的时候，在dbgrid中的整条记录的颜色都改变，也就是怎么样实现dbgrid的每一行的颜色变化。（以jjff为标志），另外，能告诉我长见的各种颜色怎么写吗？谢谢，立刻给分。

Answer 1

procedure TFormChildck.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    if DM.ADOQuery1.FieldByName(jjff).AsInteger > 50 then
     begin
       DBGrid1.Canvas.Brush.Color := clblue;
        DBGrid1.Canvas.Font.Color := clRed;
     end;
end;