有一DBGRIDEH，第一列是CHECKBOX，当加了以下代码  
  procedure   Tjgsp_pici_shenhe.DBGridEh1DrawColumnCell(Sender:   TObject;  
      const   Rect:   TRect;   DataCol:   Integer;   Column:   TColumnEh;  
      State:   TGridDrawState);  
  begin  
    if   dbgrideh1.Columns[0].CheckboxState=cbchecked   then  
    begin  
      dbgrideh1.Canvas.Brush.Color:=$008080FF;  
    end;  
  dbgrideh1.DefaultDrawDataCell(Rect,column.Field,State);  
  end;  
   
  本意是想当选中前面的复选框时，该行变成红色，可是运行的时候，选定行变颜色倒是实现了，可是全部的复选框全部显示成FALSE了，而不是复选框了，怎么办啊？