Delphi中为DBGrid控件添加色彩

Delphi 中为中为 DBGrid 控件添加色彩控件添加色彩 2005 08 08 09 13 作者 小刀轻舞出处 天极网责任编辑 方舟 在微软软件帝国的摇旗呐喊声中 各种开发工具纷纷推陈出新 VB net 和 VC net 等微软的嫡系在 短时间内拥有了一大批 FANS 能在开发工具领域和微软一决高下的 Borland 公司也不甘示弱把 Delphi 打扮 的漂漂亮亮的 让我们这些坚定的 D 迷依旧信心满满 坚守这块阵地 一些对 Pascal 语法 情有独钟或对 VCL 爱慕非凡的新生力量也加入了我们阵营之中 新加入的同志大多以开发数据库类的软 件做为初始的一步 这样对 数据感知 控件了解成为了必须 这其中最经常用到的要属 DBGrid 我们就 来谈谈如何增强 DBGrid 的功能 虽然原生的 DBGrid 功能已经非常强大 但在实际开发工作还是会碰到 捉襟见肘的时候 例如将不同类型的数据用不同的颜色加以区分这个功能就非常有用 这一功能有助于加 强软件与用户的交互 要知道用户可是上帝喔 让上帝满意是最重要的事情啊 添加不同颜色到 TDBGrid 组件中将会增强组件的显示外观和区别数据库中不同内容的行或列 TDBGrid 组件是一种非常棒的用来显示数据内容的组件 本文的重点将用来解释 如何在 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 属性修改一下 图 1 就是这么简单 只要轻点几下鼠标就可以了 这样修改之后的 TDBGrid 就不再是呆板的白色背景了 为行上色 第 1 种 如果你想要为 TDBGrid 中所选的某一格或某些格指定颜色 而且你不想使用 dgRowSelect 选项 因为你想让 TDBGrid 可以直接在 TDBGrid 单元格中编辑数据 你应该使用 TDBGrid 的 OnDrawColumnCell 事件 下面我们用到的技巧可以动态改变 TDBGrid 中的单元格文本的颜色 代码如下 procedure TForm1 DBGrid1DrawColumnCell Sender TObject const Rect TRect DataCol Integer Column TColumn State TGridDrawState begin if Table1 FieldByName Salary AsCurrency 36000 then 指定所需改变颜色行的条件表达式 DBGrid1 Canvas Font Color clMaroon 指定颜色为 clMaroon DBGrid1 DefaultDrawColumnCell Rect DataCol Column State end 上述代码执行的功能是 把薪水超过 3 万 6 千元的员工 employee 记录字体颜色用栗色 Maroon 标出来 图 2 第 2 种 如何动态改变 TDBGrid 中行的颜色 代码如下 procedure TForm1 DBGrid1DrawColumnCell Sender TObject const Rect TRect DataCol Integer Column TColumn State TGridDrawState begin if Table1 FieldByName Salary AsCurrency 36000 then DBGrid1 Canvas Brush Color clWhite DBGrid1 DefaultDrawColumnCell Rect DataCol Column State end 上述代码执行的功能是 把薪水超过 3 万 6 千元的员工 employee 记录背景用白色 White 标出 来 图 3 第 3 种 如何改变指定列中某些单元格的背景色 代码如下 procedure TForm1 DBGrid1DrawColumnCell Sender TObject const Rect TRect DataCol Integer Column TColumn State TGridDrawState begin if Table1 FieldByName Salary AsCurrency 40000 then begin DBGrid1 Canvas Font Color clWhite DBGrid1 Canvas Brush Color clBlack end if DataCol 4 the