您现在的位置:首页 >> VCL >> VCL >> 内容

根据条件,DBGrid不同行显示不同的颜色

时间:2011/9/3 16:26:52 点击:

  核心提示:下面的内容可以使DBGrid不同行显示不同的颜色,这里采用的使偶数行显示红色的字体和黄色的背景,条件部分可以更换为您使用中的条件,新建一个Application,然后放入Table,DataSourc...

下面的内容可以使DBGrid不同行显示不同的颜色,这里采用的使偶数行显示红色的字体和黄色的背景,条件部分可以更换为您使用中的条件,新建一个Application,然后放入Table,DataSource、DBGrid组件,然后将Table和数据库联系起来,并把其他的组件相互之间联系起来,然后在写入下面的代码:

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then //条件判断
begin
with DBGrid1 do
begin
Canvas.Font.Color:=clRed;
Canvas.Brush.Color:=clYellow;
end;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号