在DElphi中的DataGrid怎样使它显示的行间隔改变颜色
展开全部
在 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;
效果演示：
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
