在DElphi中的DataGrid怎样使它显示的行间隔改变颜色
1个回答
展开全部
在 delphi 的内置组件里,并没有 datagrid 组件。
以下提供的是 DbGrid 组件,隔行变色显示的代码:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);begin if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then begin DBGrid1.Canvas.Brush.Color := clBlue; DBGrid1.Canvas.Font.Color := clYellow; end; DBGrid1.DefaultDrawDataCell(Rect,Field,State);end;
效果演示:
以下提供的是 DbGrid 组件,隔行变色显示的代码:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);begin if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then begin DBGrid1.Canvas.Brush.Color := clBlue; DBGrid1.Canvas.Font.Color := clYellow; end; DBGrid1.DefaultDrawDataCell(Rect,Field,State);end;
效果演示:
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询