dbgrid根据值改变行的颜色

我在制作模拟划菜程序的时候，要依据ordr表的void值改变行的颜色

终于找到的方法，以下是代码

在窗体中添加Colorgird1

form ONCreate事件添加

ColorGrid1.ForeGroundIndex:=9;
ColorGrid1.BackGroundIndex:=15;

9是红色

15是白色

dbgrid的DrawDataCell事件添加

procedure TForm1.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if cds2.Fieldbyname('VOID').value='Y' then
DBGrid2.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
else
if cds2.Fieldbyname('CNT').value<0 then
DBGrid2.Canvas.Brush.Color:=clYellow
else
DBGrid2.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
DBGrid2.Canvas.FillRect(Rect);
DBGrid2.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);

 

dbgrid要刷新

DBGrid2.refresh;

dbgrid中不能add fields，一添加了数据显示不出来，不知道为什么，只能动态设定标题

DBGrid2.Columns[0].Title.caption:='编码';
DBGrid2.Columns[0].Width:=60;
DBGrid2.Columns[1].Title.caption:='名称';
DBGrid2.Columns[1].Width:=100;
DBGrid2.Columns[2].Title.caption:='点选人';
DBGrid2.Columns[2].Width:=40;
DBGrid2.Columns[3].Title.caption:='数量';
DBGrid2.Columns[3].Width:=40;
DBGrid2.Columns[4].Title.caption:='单位';
DBGrid2.Columns[4].Width:=40;
DBGrid2.Columns[5].Title.caption:='辅助数量';
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Title.caption:='上传时间';
DBGrid2.Columns[6].Width:=100;
DBGrid2.Columns[7].Title.caption:='价格';
DBGrid2.Columns[7].Width:=40;
DBGrid2.Columns[8].Title.caption:='总价格';
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Title.caption:='取消';
DBGrid2.Columns[9].Width:=40;
DBGrid2.Columns[10].Title.caption:='取消人';
DBGrid2.Columns[10].Width:=40;

end;