给dbgrideh的指定行着色(100分)

如题 ， 我写了下面代码后<br>procedure TFrmMain.GridDrawDataCell(Sender: TObject; const Rect: TRect;<br>&nbsp; Field: TField; State: TGridDrawState);<br>begin<br>&nbsp; if DM.Query.FieldByName('inputperson').Asstring = '**'then<br>&nbsp; &nbsp; &nbsp;if not ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then<br>&nbsp; &nbsp; &nbsp; &nbsp;Grid.Canvas.Brush.Color := clyellow;<br>&nbsp; Grid.DefaultDrawDataCell(Rect, Field, State);<br>end;<br><br>制定的行颜色正常了， 但是 本来boolean值是用checkbox表示的， 画了之后就变成true和false了。 如何让checkbox不消失？？ 各位大虾帮帮忙

把事件写到OnDrawColumnCell中<br>把DefaultDrawDataCell改为<br>DefaultDrawColumnCell(Rect,DataCol,Column,State);<br>就不会出现你讲的情况了

可以了 谢谢levi