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中� ......
WinExec主要运行EXE文件。如：
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。
首先必须引用shellapi.pas单元：uses ShellAPI;
1.标准用法
ShellExecute函数原型及参数含义如下：
function ShellExecute(hWnd: HWND; Operati ......
Delphi中高级DLL的编写和调用技巧
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和
根据Delphi提供的有关 DLL编� ......
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形 ......
概要
自去年CodeGear被英巴卡迪诺（Embarcadero Technologies）收购后，大家对Delphi的未来发展非常关心。近日，InfoQ中文站有幸对David I进行了独家专访，以了解更多关于Delphi的相关信息。
个人简介
David Intersimone（简称David I），英巴卡迪诺负责开发者关系的副总裁和首席宣传官（Chief Evangelist）。David负 ......
