在DElphi中的DataGrid怎样使它显示的行间隔改变颜色

2019-11-18 18:04:45

字体：大中小

来源：转载

供稿：网友

在DElphi中的DataGrid怎样使它显示的行间隔改变颜色？就向.NET中同名控件一样。
---------------------------------------------------------------

好像是在 OnDrawDataCell 事件中写代码。
---------------------------------------------------------------

PRocedure TForm1.dbgridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DBGrid2.DataSource.DataSet.RecNo mod 2=1 then
begin
DBGrid2.Canvas.Font.Color := clBlue;
DBGrid2.Canvas.Brush.Color:=clyellow;
end
else begin
DBGrid2.Canvas.Font.Color := clred;
DBGrid2.Canvas.Brush.Color:= clGradientActiveCaption;
end;
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

上一篇：delphi2005探讨之二

下一篇：DELPHI中的快捷方式一览(完全正式版)

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注