Delphi中为DBGrid控件添加色彩
Delphi中为DBGrid控件添加色彩
2005-08-08 09:13作者：小刀轻舞出处：天极网责任编辑：方舟
添加不同颜色到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中行的颜色，代
相关文档：
Delphi 7事件的多处理机制
Allen Tao
2007-08-19
首先解释一下这个题目。在我使用Delphi 7的过程中发现，一个对象的事件只能被一个过程处理。如果多次给这个对象的事件赋给处理事件的过程，最后真正处理事件的将是最后赋值的那个过程。例如，有类TMyClass中定义了一个事件OnSomeFired，在类TClientClass中� ......
在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function Inc ......
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形 ......
一．编写 RC 脚本文本
用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：
AVI 无声动画
BITMAP 位图文件
CURSOR 光标文件
ICON 图标文件
WAVE 声音文件
以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
