我现在是有个标志字段，根据它的值而改变本条纪录在dbgrid中的显示颜色。现在当前选择行默认为 蓝色，我想改变这个颜色

Question

小弟，是delphi的菜鸟，有个简单的问题向朋友请教。我现在是有个标志字段，根据它的值而改变本条纪录在dbgrid中的显示颜色。
现在当前选择行默认为 蓝色，我想改变这个颜色

Answer 1

在DBGrid的OnDrawColumnCell写入：  
  aqStore: TADOQuery，为dgStore.DataSource.DataSet;
  dgStore: TDBGrid;
  ...
  if aqStore.FieldByName('onshow').AsBoolean = true then
    dgStore.Canvas.Brush.Color := clCream;
  if State = [gdSelected, gdFocused] then
  begin
    dgStore.Canvas.Brush.Color := clSkyBlue;
    dgStore.Canvas.Font.Color := clBlack;
  end;  dgStore.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Answer 2

问题己解决.谢谢 liyu001xj(鲤鱼山)  weizi2000(秋风啊)