知识大全 Delphi中为DBGrid控件添上色彩
Posted 知
篇首语：或许是时间炖化了他们的异端，或许是岁月油炸了我的坚持。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中为DBGrid控件添上色彩相关的知识，希望对你有一定的参考价值。
Delphi中为DBGrid控件添上色彩 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！
在微软软件帝国的呐喊声中 VB net和VC# net在短时间内拥有了一大批FANS 能在开发工具领域和微软一决高下的Borland公司也不甘示弱把Delphi 打扮 的漂漂亮亮的 让我们这些坚定的D迷依旧信心满满 坚守这块阵地 一些对Pascal语法情有独钟或对VCL爱慕非凡的新生力量也加入了我们阵营之中 新加入的同志大多以开发数据库类的软件做为初始的一步 这样对 数据感知 控件了解成为了必须 这其中最经常用到的要属DBGrid 虽然原生的DBGrid功能已经非常强大 但在实际开发工作还是会碰到捉襟见肘的时候 例如将不同类型的数据用不同的颜色加以区分这个功能就非常有用 这一功能有助于加强软件与用户的交互 本文的重点将用来解释 如何在TDBGrid中改变特定行或列或单元格的颜色 准备阶段 本文假设你已经知道如何将一个TDBGrid与数据库相联接 最容易的方法是使用 Database Form Wizard 将TDBGrid与DBDemo（Delphi自带数据库中的employee db相联接 选择除Except之外的所有字段 给TDBGrid上颜色 ·为列上色 第一种是最容易的一类上色 最直接的让你的用户看到 为TDBGrid中指定的某一列上色 我们采用的方法是通过TDBGrid的TColumns属性来完成 步骤如下 用鼠标选择Form上的TDBGrid组件 在Object Inspector中双击TDBGrid的Columns属性打开Columns编辑窗口 （想了解更多内容查阅Delphi帮助中的 Columns editor: creating persistent columns 主题 ） 下面你所要做的就是指定你需要改变颜色的那一行或几行的背景颜色 如果你要改变字体颜色 就将Font属性集中的Color属性修改一下
就是这么简单 只要轻点几下鼠标就可以了 这样修改之后的TDBGrid就不再是呆板的白色背景了 ·为行上色 第 种 如果你想要为TDBGrid中所选的某一格或某些格指定颜色 而且你不想使用dgRowSelect选项 因为你想让TDBGrid可以直接在TDBGrid单元格中编辑数据 你应该使用TDBGrid的OnDrawColumnCell事件 下面我们用到的技巧可以动态改变TDBGrid中的单元格文本的颜色 代码如下
procedure TForm DBGrid DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);beginif Table FieldByName( Salary ) AsCurrency> then//指定所需改变颜色行的条件表达式DBGrid Canvas Font Color:=clMaroon;//指定颜色为clMaroonDBGrid DefaultDrawColumnCell(Rect DataCol Column State);end;
上述代码执行的功能是 把薪水超过 万 千元的员工（employee）记录字体颜色用栗色（Maroon）标出来
第 种 如何动态改变TDBGrid中行的颜色 代码如下
procedure TForm DBGrid DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if Table FieldByName( Salary ) AsCurrency> then DBGrid Canvas Brush Color:=clWhite; DBGrid DefaultDrawColumnCell(Rect DataCol Column State);end;
上述代码执行的功能是 把薪水超过 万 千元的员工（employee）记录背景用白色（White）标出来
第 种 如何改变指定列中某些单元格的背景色 代码如下
procedure TForm DBGrid DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);begin if Table FieldByName( Salary ) AsCurrency> then begin DBGrid Canvas Font Color:=clWhite; DBGrid Canvas Brush Color:=clBlack; end; if DataCol = then DBGrid DefaultDrawColumnCell(Rect DataCol Column State);end;
cha138/Article/program/Delphi/201311/24780相关参考
为ASP.NET控件添加设计时支持 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！Microsoft
程序开发小技巧：Delphi的Query控件 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！用Del
用Delphi编写数据报存储控件 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！一概述 在用D
如何用Delphi编写自己的可视化控件 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 可视化控件
知识大全 DELPHI超级Internet控件集--INDY
DELPHI超级Internet控件集--INDY 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！
Delphi数据库控件使用入门（三） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 使用TDBG
Delphi中自做动态显示的控件 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ Delp
Delphi数据库控件使用入门（二） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 以RTF格式
Delphi数据库控件使用入门（一） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 在数据库应用
Delphi开发数据库控件的方法[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ Delph