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中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
定义：
CbName: TComboBox;
width: Integer; //实际所需的宽度
在执行代码中按如下方法写：
width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度，也可以按自己的� ......
Delphi
Delphi这是一个windows桌面编程软件，现在版本有很多，主要用的还是Delphi7，7以上的版本都需要装.net
静态调用和动态调用，静态调用就是直接往窗体上托控件，而动态调用就是编写代码调用控件的类实现一些功能。
通常情况下都是这两种方式相结合的使用，随着Delphi的深入，就会发现托控件不是万能的，很多时候都 ......
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形 ......
