with(Sender as TDBGrid) do
begin
if ((State=[gdSelected])or (State= [gdSelected, gdFocused])) then
begin
Canvas.Font.Color:=clHighlightText;
Canvas.Brush.Color:=clHighlight;
end
else
begin
if DataSource.DataSet.RecNo mod 10 =0 then
Canvas.brush.Color:=clRed ;
//else
// Canvas.brush.Color:=clYellow;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State); //这行是关键
end;
转载于:https://www.cnblogs.com/zsdentist/archive/2011/11/12/2246481.html