Question

delphi 关于DBgrid中如何动态改变行的颜色？在运行期中执行谢谢了，大神帮忙啊

关于DBgrid中如何动态改变行的颜色？在运行期中执行，请给出具体代码

Answer 1

下列的代码就能够产生斑马线的效果。procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if (Table1.RecNo mod 2 ) = 0 then begin DBGrid1.Canvas.Brush.Color clRed; end else begin DBGrid1.Canvas.Brush.Color clBlue; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);end; 查看更多答案>>