动态更新DBGrid的颜色

原创 2001年06月13日 09:40:00
DBGrid控件是一个有许多用户接口的显示数据库的控件,以下的程序
告诉您如何根据显示的内容改变字体的显示颜色。例如,如果一个城
市的人口大于200万,我们就让它显示为蓝色。使用的控件事件为
DBGrid.OnDrawColumeCell.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const
Rect:TRect;DataCol: Integer; Column: TColumn; State:
TGridDrawState);

begin

if Table1.FieldByName('Population').AsInteger > 20000000 then

DBGrid1.Canvas.Font.Color := clBlue;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

上面的例子是简单的,但是你可以根据自己的需要扩充,例如字体也
变化等,甚至你可以调用画圆的函数在数字上画上一个红色的圆圈。

动态更新DBGrid的颜色

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 22:45
  • 114

设置DBGrid单元格颜色

一、设置某个单元格颜色:        if Column.FieldName=BookListNO  then   //按字段为BookListNO的列,来显示单元格颜色       begin  ...
  • 78hgdong
  • 78hgdong
  • 2009年12月13日 10:33
  • 2251

delphi Dbgrid 根据值的不同显示不同颜色

DBGrid1DrawColumnCell 事件中: if Column.FieldName='STATUS' then begin if dm....
  • hansoy
  • hansoy
  • 2015年04月08日 09:49
  • 678

delphi dbgrid行颜色改变

把 dgRowSelect 设为True, 在option里面. // DBGrid1的OnDrawColumnCell事件 if ((State = [gdSelected]) ...
  • qin_yaping
  • qin_yaping
  • 2017年09月04日 16:48
  • 155

DBGrid 使用大全

在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid ...
  • zisongjia
  • zisongjia
  • 2017年03月06日 18:05
  • 466

隔行改变DBGrid网格颜色

Delphi5 - 隔行改变DBGrid网格颜色   在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件,设置相关的属性,使 DBGrid1 能显示表中的数据...
  • xiaomaoxia
  • xiaomaoxia
  • 2006年04月06日 11:19
  • 645

在DBGrid中可选中行而又可进入编辑状态

如何在DBGrid中选中行,而又让它可以进入编辑状态?   也许你会问我这有什么用?呵呵,做数据库应用的兄弟们会深有感触,当用DBGrid显示的字段过多时,用户不得不拉动最下面的滚动条,去看最右边的...
  • sforiz
  • sforiz
  • 2011年12月22日 10:27
  • 1730

Delphi DBGRID中 根据不同的字段值显示不同的小图标

问题简介: 在DBGRID中显示图片,或者根据不同的字段值显示不用的小图片,有两种方法: 1>、使用DBGridEH设置相应的属性; 2>、使用代码,自己在DrawColumnCell事件中进行...
  • xiongmao000738
  • xiongmao000738
  • 2011年09月07日 19:58
  • 4221

DBGrid 各属性的设置

在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观...
  • dai510131
  • dai510131
  • 2014年01月10日 16:33
  • 1573

Delphi DBGrid使用大全

Delphi DBGrid使用大全 Delphi DBGrid使用大全   delphi中TDBGrid的使用 2010-06-24 10:03 procedure TMainFo...
  • xyh08180
  • xyh08180
  • 2015年01月23日 23:43
  • 459
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:动态更新DBGrid的颜色
举报原因:
原因补充:

(最多只允许输入30个字)