delphi dbgrid 颜色的列宽、居中等问题
点击联系发帖人
时间：2015-03-05 08:05
关于DELPHI中的DBGRID下拉框有关问题
&来源：读书人网&【读书人网()：综合教育门户网站】
关于DELPHI中的DBGRID下拉框问题小弟现在在做一个程序，关于DBGRID的，我在DBGRID中实现了一个下拉框，但却无
关于DELPHI中的DBGRID下拉框问题小弟现在在做一个程序，关于DBGRID的，我在DBGRID中实现了一个下拉框，但却无法将下拉框中的内容选择到DBGRID的单元格中去，请问要怎么设置或者在哪里写程序吗？请各位大虾帮帮小弟吧~~~跪谢先 ！！！[解决办法]DBGrid中实现下拉框，不用自己建，有现成的。设置DBGrid1中每一列的PickList属性即可。[解决办法]DBGrid.Columns[0].PickList.Add('你要下拉的字符串');[解决办法]DBGrid1.Columns[3].PickList:=memo1.DELPHI高手进，DBGRID列宽怎么调？_百度知道
DELPHI高手进，DBGRID列宽怎么调？
怎样逐列定义DBGRID控件中每列的宽度，有的根本没必要太宽查询的结果在DBGRID控件中显示，列宽不一，不知怎么搞的
提问者采纳
双击dbgrid: Add All Fields3,在它的属性栏,出现一个编辑框:EDITING DBGRID1.COLUNMS2.选择需要设置的行.如果是空白的话,点击第三个图标,直接设置他了WINDTH值为你想要的,显示数据后可做如下动作调节你的列宽设置好你的dbgrid:1.ok
提问者评价
是是，您说的很对！
其他类似问题
按默认排序
其他1条回答
保存后就可以了在设计界面中，直接调整DBGrid的列宽为合适的尺寸，打开数据集（TQuery或者TTable）后
dbgrid的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Delphi DBGrid总结 - beyondqd的专栏
- 博客频道 - CSDN.NET
4952人阅读
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段 之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编 程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
&&& 以下的示例程序演示了对 DBGrid 各属性的 设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。
&&& 示例程序的运行：
&&& 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置 相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本 代码在 Windows98、Delphi5.0 环境下调试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TO
& const Rect: TR DataCol: I Column: TCState: TGridDrawState);
& if gdSelected in State then E
file://定义表头的字体和背景颜色：
&&& for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
&&&&& (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; file://字体
&&&&& (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; file://字体大小
&&&&& (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000 file://字体颜色(红色)
&&&&& (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; file://背景色(绿色)
file://隔行改变网格背景色：
& if Query1.RecNo mod 2 = 0 then
&&& (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk file://定义背景颜色
&&& (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); file://定义背景颜色
file://定义网格线的颜色：
&&& DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
& with (Sender as TDBGrid).Canvas do file://画 cell 的边框
&&& Pen.Color := $00ff0000; file://定义画笔颜色(蓝色)
&&& MoveTo(Rect.Left, Rect.Bottom); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画蓝色的横线
&&& Pen.Color := $0000ff00; file://定义画笔颜色(绿色)
&&& MoveTo(Rect.Right, Rect.Top); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画绿色的竖线
& 17:31:41&&& 原来还有这个办法啊，在没有DevExpress之前....
我会陆续添加的
17:07:42&&& 问题: Delphi5 - 隔行改变DBGrid网格颜色&& 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置 相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序
procedure TForm1.DBGrid1DrawColumnCell(Sender: TO const Rect: TR
&DataCol: I Column: TC State: TGridDrawState);
& if gdSelected in State then E& file://隔行改变网格背景色：
&&& if adoQuery1.RecNo mod 2 = 0 then
&&&&& (Sender as TDBGrid).Canvas.Brush.Color := clinfobk file://定义背景颜色
&&& (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223);& file://定义背景颜色
定义网格线的颜色：
& DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
& with (Sender as TDBGrid).Canvas do file://画 cell 的边框
&&& Pen.Color := $00ff0000; file://定义画笔颜色(蓝色)
&&& MoveTo(Rect.Left, Rect.Bottom); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画蓝色的横线
&&& Pen.Color := file://定义画笔颜色(兰色)
&&& MoveTo(Rect.Right, Rect.Top); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画绿色
用BDE中的table1未能通过，颜色没有隔行变化。&
17:12:09&&& 在Delphi的DBGrid中插入其他可视组件&& Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可 以通过在DBGrid中插入其他可视组件来实现这一点。
& Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件&&DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组 件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。
& 1、在Delphi 4.0中新建一个项 目。
& 2、分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板 上DBGrid，DBComboBox四个组件到Form1上。
& 3、设置各个组件的属性如下：
rcf1对象 属性 设定植
Form1 Caption '在DBGrid中插入SpinEdit组件示例'
DataSource1 DataSet Table1
Table1 DatabaseName DBDEMOS
TableName 'teacher.DBF'
Active True
DBGrid1 DataSource DataSource1
DBComboBox1 DataField SEX
DataSource DataSource1
Visible False
Strings Items. '男'| '女'
注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是&男&或者是&女&。
4、DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的 字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：
procedure TForm1.DBGrid1DrawDataCell(Sender: TO const Rect: TR Field: TF State: TGridDrawState);
& if (gdFocused in State) then
&&& if (Field.FieldName = DBComboBox1.DataField ) then
&&&&& DBComboBox1.Left := Rect.Left + DBGrid1.L
&&&&& DBComboBox1.Top := Rect.Top + DBGrid1.
&&&&& DBComboBox1.Width := Rect.Right - Rect.L
&&&&& DBComboBox1.Height := Rect.Bottom - Rect.T
&&&&& DBComboBox1.Visible := T
5、DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
procedure TForm1.DBGrid1ColExit(Sender: TObject);
& If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
&&&&& DBComboBox1.Visible :=
& 6、当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函 数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：
procedure TForm1.DBGrid1KeyPress(Sender: TO var Key: Char);
& if (key & & chr(9)) then
&&& if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
&&&&& DBComboBox1.SetF
&&&&& SendMessage(DBComboBox1.Handle，WM_Char，word(Key)，0);
&& 程序在中文Windows 98，Delphi 4.015 下调试通 过。希望本文能使你可以更加方便快捷的开发数据库应用程序。&
17:17:56&&& 锁定DBGrid左边的列&&& 我在使用 Delphi3 进行数 据库编程的时候，希望 DBGRID 构件在显示数据的时候能象FoxPro 的 BROWSE 命令一样，锁定左边指定的几列不进行滚动，请问应用什么方法来实 现？
&& 我们知道 Delphi 的 TStringGrid 有一个属性 FixedCols 来 指定不滚动的列。虽然TDBGrid 不能直接使用这一属性，但通过强制类型转换也可以首先这一功能，因为这两个类都来自 TCustomGrid 类。 下面我们以 Delphi 3.0的 Demos/Db/CtrlGrid 为例来说明具体的用法。在这个例子的 TFmCtrlGrid.FormShow 过程中加入如下一行：
& TStringGrid(DbGrid1).FixedCols := 2;
运行该程序，在左右移动各列时，Symbol 列不会移动。除了这种 方法，也可以采用下面的方法：首先在 Form 声明部分加上
&& type TMyGrid = Class(TDBGrid)
& 然后在 TFmCtrlGrid.FormShow 过程中加入：
TMyGrid(DbGrid1).FixedCols := 2;
两者从形式上略有不同，但实质都 是一样的。我们这里设置 FixedCols 为 2，这是因为在 DBGrid 构件最左 侧有个指示列，如果你将 DBGrid 的 Options 属性的 dgIndicator 设 为False，则应设置 FixedCols 为1。&
& 17:21:36&&& 使dbgrid的某几笔资料变色&& 你可在 DBGrid 元件的 DrawDataCell 事件中依资料的条件性来改变格子或文字的颜色.
OnDrawDataCell(...)
& with TDBGrid(Sender) do
&&& if (条件) then
&&&&& Canvas.TextOut(Rect.Left + 4
&&& Rect.Top + 2
'要 显示的文字如表格的资料');
&&& 而你会看到 DBGrid 的显示资 料怎麽有重叠的情况那是因为原本DBGrid要显示的资料与 TextOut 所显示的资料重叠
&&& 解决方法 :
&&& 在 Query 元件所加入的栏位(在元件上按右键会有 Add Fields...的选 单)在不 要显示资料的栏位的 OnGetText 事件中有一参数设定为 F
procedure TForm1.Query1Detail1GetText(Sender: TF var Text:
DisplayText: Boolean);
& // 决定在 DBGrid 得知表格 资料时要不要显示所得到的资料False -& 不显示
& // 就可避免与 TextOut 的文字 重叠了
& DisplayText : = F
&& 如果用 Delphi 3 处理 很简单.例 如:对表 中某字段当其数值小于0时为红字其他为黑字.
在 DBGrid.OnDrawColumnCell(...) 中:
& if TableField.AsInteger & 0 then
&&& DBGrid.Canvas.Font.Color := clRed
&&& DBGrid.Canvas.Font.Color := clB
& DBGrid.DefaultDrawColumnCell(...);
这样对 Field 指定的格式仍旧生效不必重写.&
17:25:29&&& 实战Delphi数据网格色彩特效&& Delphi中的数据网格控件(TDbGrid)对于显示和编辑数据库中大量的数据起着十分重要的作用；然而，在使 用数据网格控件的同时，也往往因为表格中大量的数据不易区分，而令操作者眼花缭乱。如何提高网格控件的易用性，克服它的此项不足呢？本文从改变数据网格的 色彩配置角度，提出了一种解决办法。
以下为数据网格控件的6种特殊效果的实现方法，至于数据网格控件与数据集如何连接的方法从略。
1. 纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示以 区别相邻的数据列。
file://在DbGrid的DrawColumnCell事件中编写如下代码：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clB file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clA file://奇数列用浅绿色
DbGrid1.Canvas.Pen.Mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
2. 纵向斑马线，同时以红色突出显示当前单元格效果：以突出显示当前选 中的字段。
file://将上述代码修改为：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clB file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clA file://奇数列用浅绿色
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
If Not DbGrid1.SelectedRows.CurrentRowSelected then
DbGrid1.Canvas.Brush.Color:=clR file://当前选 中单元格显示红色
DbGrid1.Canvas.Pen.Mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
上述两种方法突出了列的显示效果。
3．在数据网格中以红色突出显示当前选中的行。
&&& 设置DbGrid控件的Options属性中的dgRowSelect属性为真，Color属性为clAqua(背景色)
在DbGrid的DrawColumnCell事件中编写如下代码：
if ((State = [gdSelected]) or (State=[gdSelected gdFocused])) then
DbGrid1.Canvas.Brush.color:=clR file://当前行 以红色显示，其它行使用背景的浅绿色
DbGrid1.Canvas.pen.mode:=
DbGrid1.DefaultDrawColumnCell (Rect
4．行突显的斑马线效果：既突出当前行，又区分不同的列（字段）。
file://其它属性设置同3，将上述代码修改为：
if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
Case DataCol Mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clR file://当前选中行的偶数列显示红色
False: DbGrid1.Canvas.Brush.color:= file://当前选中行的奇数列显示蓝色
DbGrid1.Canvas.pen.mode:=
DbGrid1.DefaultDrawColumnCell (Rect
5．横向斑马线， 同时以红色突显当前行效果。
file://其它属性设置同3，将上述代码修改为：
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clA file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:= file://奇数行用蓝色表示
if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then file://选中行用红色显示
DbGrid1.Canvas.Brush.color:=clR
DbGrid1.Canvas.pen.mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
6．双向斑马线效果：即行间用不同色区分，同时，选中行以纵向斑马线 效果区分不同的列。
file://其它属性设置同3，将上述代码修改为：
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clA file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:= file://奇数行用蓝色表示
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
Case DataCol mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clR file://当前选中行的偶数列用红色
False: DbGrid1.Canvas.Brush.color:= clG file://当前选中行的奇数列用绿色表示
DbGrid1.Canvas.pen.mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
上述6种方法分别就数据网格控件的列和行的色彩进行了设置，读者可以根据 自己的需要设置特效。该程序在Delphi5中测试通过。&
& 11:11:31&&& 点击DBGrid的Title对查询结果排序 关键词:DBGrid 排序&
欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击 另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。
procedure TFHkdata.SortQuery(Column:TColumn);
& SqlStr,myFieldName,TempStr:
& OrderPos:
& SavedParams: TP
& if not (Column.Field.FieldKind in [fkData,fkLookup])
& if Column.Field.FieldKind =fkData then
&&& myFieldName := UpperCase(Column.Field.FieldName)
&&& myFieldName := UpperCase(Column.Field.KeyFields);
& while Pos(myFieldName,';')&&0 do
& myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100);
& with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
&&& SqlStr := UpperCase(Sql.Text);
&&& // if pos(myFieldName,SqlStr)=0
&&& if ParamCount&0 then
&&&&& SavedParams := TParams.C
&&&&& SavedParams.Assign(Params);
&&& OrderPos := pos('ORDER',SqlStr);
&&& if (OrderPos=0) or (pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then
&&&&& TempStr := ' Order By ' + myFieldName + ' Asc'
&&& else if pos('ASC',SqlStr)=0 then
&&&&& TempStr := ' Order By ' + myFieldName + ' Asc'
&&&&& TempStr := ' Order By ' + myFieldName + ' Desc';
&&& if OrderPos&&0 then SqlStr := Copy(SqlStr,1,OrderPos-1);
&&& SqlStr := SqlStr + TempS
&&& Active := F
&&& Sql.Text := SqlS
&&& if ParamCount&0 then
&&&&& Params.AssignValues(SavedParams);
&&&&& SavedParams.F
& 11:13:57&&& 去掉DbGrid的自动添加功能
关键词:DbGrid&
移动到最后一条记录时再按一下&下&就会追加一条记录，如果去掉这项功能
&&& procedure TForm1.DataSource1Change(Sender: TO Field: TField);
&&&&& if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.C
& 12:05:46&&& DBGrid不支持鼠标的上下移动的解决代码(感谢 wangxian11 提 供)自己 捕捉WM_MOUSEWHEEL消息处理
& OldGridWnd : TWndM
procedure NewGridWnd (var Message : TMessage);
procedure TForm1.NewGridWnd(var Message: TMessage);
& IsNeg : B
& if Message.Msg = WM_MOUSEWHEEL then
&&& IsNeg := Short(Message.WParamHi) & 0;
&&& if IsNeg then
&&&&& DBGrid1.DataSource.DataSet.MoveBy(1)
&&&&& DBGrid1.DataSource.DataSet.MoveBy(-1)
&&& OldGridWnd(Message);
procedure TForm1.FormCreate(Sender: TObject);
& OldGridWnd := DBGrid1.WindowP
& DBGrid1.WindowProc := NewGridW
& 14:46:56&&& dbgrid中移动焦点到指定的行和列&& dbgrid是从TCustomGrid继承下来的，它有col与row属性，只不过是protected的，不能直接访问，要处理一下，可以这样：
& TDrawGrid(dbgrid1).row:=
&&& TDrawGrid(dbgrid1).col:=
&&& dbgrid1.
就可以看到效果了。
1 这个方法是绝对有问题的，它会引起DBGrid内部的混乱，因为DBGrid无法定位当前纪录，如果DBGrid只读也就罢了（只读还是会出向一些问题，比如原本只能单选的纪录 现在可以出现多选等等，你可以自己去试试），如果DBGrid可编辑那问题就可大了，因为当前纪录的关系，你更改的数据字段很可能不是你想象中的
&&& 2 我常用的解决办法是将 上程序改为（随便设置col是安全的，没有一点问题）
&&& TDrawGrid(dbgrid1).col:=1;
&&& dbgrid1.
这 就让焦点移到第一行第一列当中
14:55:26&&& 如何使DBGRID网格的颜色随此格中的数据值的变化而变化？&& 在做界面的时候，有时候为了突出显示数据的各个特性（如过大或者 过小等），需要通过改变字体或者颜色，本文就是针对这个情况进行的说明。
&如何使DBGRID网格的颜色随此格中的数据值的变化而变化。如&60的网格为红色？
&&& Delphi中数据控制构件DBGrid是用来反映数据表的最重要、也是最常用的构件。在应用程序中，如 果以彩色的方式来显示DBGrid，将会增加其可视性，尤其在显示一些重要的或者是需要警示的数据时，可以改变这些数据所在的行或列的前景和背景的颜 色。
DBGrid属性DefaultDrawing是用来控制Cell（网格）的绘制。若DefaultDrawing的缺省设置为True，意思是Delphi使用DBGrid的缺省绘制方法来制作网格和其中所包含的数据，数据是按与特定列 相连接的Tfield构件的DisplayFormat或EditFormat特性来绘制的；若将DBGrid的DefaultDrawing特性设置成False，Delphi就不绘制网格或其内容，必须自行在TDBGrid的OnDrawDataCell事件中提供自己的绘制例程（自画功能）。
在这里将用到DBGrid的一个重要属性：画布Canvas，很多构件都有这一属性。Canvas代表了当前被显示DBGrid的表面，你如果把另行定义的显示内容和风格指定给DBGrid对象的Canvas，DBGrid对象会把Canvas属性值在屏幕上显示出来。具体应用时，涉及到Canvas的Brush属性和FillRect方法及TextOut方法。Brush属性规定了DBGrid.Canvas显示的图像、颜色、风格以及访问Windows GDI 对象句柄，FillRect方法使用当前Brush属性填充矩形区域，方法TextOut输出Canvas的文本内容。
以下用一个例子来详细地说明如何显示彩色的DBGrid。在例子中首先要有一个DBGrid构件，其次有一个用来产生彩色筛选条件的SpinEdit构件，另外还有ColorGrid构件供自由选择数据单元的前景和背景的颜色。
1.建立名为ColorDBGrid的Project，在其窗体Form1中依次放入所需构件，并设置属性为相应值，具体如下所列：
Table1 DatabaseName: DBDEMOS
&&&& TableName: EMPLOYEE.DB
&&&& Active: T
& DataSource1 DataSet: Table1
& DBGrid1 DataSource1: DataSource1
&&&& DefaultDrawing: False
& SpinEdit1 Increment:200
&&&& Value: 20000
& ColorGrid1 GridOrdering: go16＊1
2.为DBGrid1构件OnDrawDataCell事件编写响应程序：
/这里编写的程序是&60的网格为红色的情况，其他的可以照此类推
procedure TForm1.DBGrid1DrawDataCell(Sender: TO const Rect: TRField: TF State: TGridDrawState);
if Table1.Fieldbyname(&Salary&).value&=SpinEdit1.value then
& DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
& DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundC
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.left＋2,Rect.top＋2,Field.AsString);
这个过程的作用是当SpinEdit1给定的条件得以满足时，如&salary&变量低于或等于SpinEdit1.Value时，DBGrid1记录以ColorGrid1的前景颜色来显示，否则以ColorGrid1的背景颜色来显示。然后调用DBGrid的Canvas的填充过程FillRect和文本输出过程重新绘制DBGrid的画面。
3.为SpinEdit1构件的OnChange事件编写响应代码：
procedure TForm1.SpinEdit1Change(Sender: TObject);
& DBGrid1.& file://刷新是必须的，一定要刷新哦
当SpinEdit1构件的值有所改变时，重新刷新DBGrid1。
4.为ColorGrid1的OnChange事件编写响应代码：
procedure TForm1.ColorGrid1Change(Sender: TObject);
& DBGrid1.&&& file://刷新是必须的，一定要刷新哦
当ColorGrid1的值有所改变时，即鼠标的右键或左键单击ColorGrid1重新刷新DBGrid1。
5.为Form1窗体（主窗体）的OnCreate事件编写响应代码：
procedure TForm1.FormCreate(Sender: TObject);
& ColorGrid1.ForeGroundIndex:=9;
ColorGrid1.BackGroundIndex:=15;
在主窗创建时，将ColorGrid1的初值设定前景为灰色，背景为白色，也即DBGrid的字体颜色为灰色，背景颜色为白色。
6.现在，可以对ColorDBGrid程序进行编译和运行了。当用鼠标的左键或右键单击ColorGrid1时，DBGrid的字体和背景颜色将随之变化。
在本文中，只是简单展示了以彩色方式显示DBGrid的原理，当然，还可以增加程序的复杂性，使其实用化。同样道理， 也可以将这个方法扩展到其他拥有Canvas属性的构件中，让应用程序的用户界面更加友好。
& 14:58:08&&& 判断Grid是否有滚动条？这是一个小技巧，如果为了风格的统一的话，还是不要用了。：）
& if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) && 0 then
&&& ShowMessage('Vertical scrollbar is visible!');
& if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) && 0 then
&&& ShowMessage('Horizontal scrollbar is visible!');
& 15:04:27&&& 两个Grid的同步滚动&& 在实际制作一个项目当中，有时候需要几个grid一起同步滚动以减少用户的操作量。希望下面那段代码对您有一定的 参考价值。
unit SyncStringG
& Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs, G
& TSyncKind = (skBoth, skVScroll, skHScroll);
& TSyncStringGrid = class(TStringGrid)
& FInSync: B
& FsyncGrid: TSyncStringG
& FSyncKind: TSyncK
{ Private declarations }
& procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;
& procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;
{ Protected declarations }
{ Public declarations }
& procedure DoSync(Msg, wParam: I lParam: Longint);
{ Published declarations }
& property SyncGrid: TSyncStringGrid read FSyncGrid write FSyncG
& property SyncKind: TSyncKind read FSyncKind write FSyncKind default skB
procedure R
implementation
procedure R
& RegisterComponents('Samples', [TSyncStringGrid]);
procedure TSyncStringGrid.WMVScroll(var Msg: TMessage);
& if not FInSync and Assigned(FSyncGrid) and (FSyncKind in [skBoth, skVScroll]) then
&&& FSyncGrid.DoSync(WM_VSCROLL, Msg.wParam, Msg.lParam);
procedure TSyncStringGrid.WMHScroll(var Msg: TMessage);
& if not FInSync and Assigned(FSyncGrid) and (FSyncKind in [skBoth, skHScroll]) then
&&& FSyncGrid.DoSync(WM_HSCROLL, Msg.wParam, Msg.lParam);
procedure TSyncStringGrid.DoSync(Msg, wParam: I lParam: Longint);
& FInSync := T
& Perform(Msg, wParam, lParam);
& FinSync := F
{****************************************}
& OldGridProc1, OldGridProc2: TWndM
& procedure Grid1WindowProc(var Message: TMessage);
& procedure Grid2WindowProc(var Message: TMessage);
procedure TForm1.Grid1WindowProc(var Message: TMessage);
& OldGridProc1(Message);
& if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or Message.msg = WM_Mousewheel)) then
&&& OldGridProc2(Message);
procedure TForm1.Grid2WindowProc(var Message: TMessage);
& OldGridProc2(Message);
& if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or (Message.msg = WM_Mousewheel)) then
&&& OldGridProc1(Message);
procedure TForm1.FormCreate(Sender: TObject);
& OldGridProc1 := StringGrid1.WindowP
& OldGridProc2 := StringGrid2.WindowP
& StringGrid1.WindowProc := Grid1WindowP
& StringGrid2.WindowProc := Grid2WindowP
9:35:04&&& 在Delphi中随意控制DBGrid 每一行的颜色简易方法&& Delphi中使用 DBGrid 控件时，每一列都能按需要随意地改变颜色，但要改变每一行的颜色却很难，那么在不重新制作新控制件的情况 下，有没有好的办法让DBGrid按照用户自己要求随意改变每一行颜色的？答案是有，下面介绍一种简单的方法。
& 要改变DBGrid每一行的颜色，只要在ONDrawColumnCell事件中设定要改变颜色的行的条件，
并指定DBGrid的Canvas.Brush.color属性并且把Canvas.pen.mode属性设成pmmask，再调用DBGrid 的DefaultDrawColumnCell方法即可。注意在改变这两个属性前要先保护好原来的
Canvas.Brush.color 属性的值，调节器用完成 DefaultDrawColumnCell 方法后要把原属性值改
回，现以 Delphi/demos/db/clientmd 目录下的演示程序 clintproj.dpr 为例子,做简单说明，下面是对程序中的栅格 MemberGrid 的 合条件的整行进行变色，变成黑体背景黄色的，其它不合条件的行的颜色为正常字体，白色背景，只在 DrawColumnCelL 事件中设条件其它的不变，如下：
procedure TClientForm.MemberGridDrawColumnCell(Sender: TO const Rect: TR
DataCol: I Column: TC State: TGridDrawState);
& oldcolor:
& if DM.ProjectTEAM_LEADER.Value = DM.Emp_ProjEMP_NO.Value then& {设定变色的行的条件}
&&&& MemberGrid.Canvas.Font.Style := [fsBold];
&&&& MemberGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
&&&& {上面是演示程序的原内容，以下是增加部分}
& if DM.ProjectTEAM_LEADER.Value =DM.Emp_ProjEMP_NO.Value then {设定变色的行的条件}
&&&& oldpm:= MemberGrid.Canvas.pen.
&&&& oldcolor:= MemberGrid.Canvas.Brush.
&&&& MemberGrid.Canvas.Brush.color:=
&&&& MemberGrid.Canvas.pen.mode:=
&&&& MemberGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
&&&& MemberGrid.Canvas.Brush.color:=
&&&& MemberGrid.Canvas.pen.mode:=
&&& 感觉上这个方法和前面的几个颜色控制方法的原理是一样的，都是通 过ONDrawColumnCell事件来实现变色醒目美化的功能。：）
& 9:43:56&&& 如何在DBGrid中能支持多项记录的选择&& 这份文档来自国外，粗略看了一下，很有用，推荐给大家学习使用。
【Question】： How to do multi-selecting records in TDBGrid?
&&& When you add [dgMultiSelect] to the Options property of a DBGrid, you give yourself the ability to select multiple records within the grid.
&&& The records you select are represented as bookmarks and are stored in the SelectedRows property.
&&& The SelectedRows property is an object of type TBookmarkList.& The properties and methods are described below.
// property SelectedRows: TBookmarkList read FB
//&& TBookmarkList = class
//&& public
&&&& {* The Clear method will free all the selected records within the DBGrid *}
&&&& // procedure C
&&&& {* The Delete method will delete all the selected rows from the dataset *}
&&&& // procedure D
&&&& {* The Find method determines whether a bookmark is in the selected list. *}
&&&& // function& Find(const Item: TBookmarkS
&&&& //&&&&& var Index: Integer): B
&&&& {* The IndexOf method returns the index of the bookmark within the Items property. *}
&&&& // function IndexOf(const Item: TBookmarkStr): I
&&&& {* The Refresh method returns a boolean value to notify whether any orphans were dropped (deleted) during the time the record has been selected in the grid.& The refresh method can be used to update the selected list to minimize the possibility of accessing a deleted record. *}
&&&& // function& Refresh: B& True = orphans found
&&&& {* The Count property returns the number of currently selected items in the DBGrid *}
&&&& // property Count: Integer read GetC
&&&& {* The CurrentRowSelected property returns a boolean value and determines whether the current row is selected or not. *}
&&&& // property CurrentRowSelected: Boolean
&&&& //&&&&& read GetCurrentRowSelected
&&&& //&&&&& write SetCurrentRowS
&&&& {* The Items property is a TStringList of TBookmarkStr *}
&&&& // property Items[Index: Integer]: TBookmarkStr
&&&& //&&&&& read GetI
unit Unit1;
& Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBT
& TForm1 = class(TForm)
&&& Table1: TT
&&& DBGrid1: TDBG
&&& Count: TB
&&& Selected: TB
&&& Clear: TB
&&& Delete: TB
&&& Select: TB
&&& GetBookMark: TB
&&& Find: TB
&&& FreeBookmark: TB
&&& DataSource1: TDataS
&&& procedure CountClick(Sender: TObject);
&&& procedure SelectedClick(Sender: TObject);
&&& procedure ClearClick(Sender: TObject);
&&& procedure DeleteClick(Sender: TObject);
&&& procedure SelectClick(Sender: TObject);
&&& procedure GetBookMarkClick(Sender: TObject);
&&& procedure FindClick(Sender: TObject);
&&& procedure FreeBookmarkClick(Sender: TObject);
&&& { Private declarations }
&&& { Public declarations }
& Form1: TForm1;
& Bookmark1: TB
implementation
{$R *.DFM}
file://Example of the Count property
procedure TForm1.CountClick(Sender: TObject);
& if DBgrid1.SelectedRows.Count & 0 then
&&& showmessage(inttostr(DBgrid1.SelectedRows.Count));
file://Example of the CurrentRowSelected property
procedure TForm1.SelectedClick(Sender: TObject);
& if DBgrid1.SelectedRows.CurrentRowSelected then
&&& showmessage('Selected');
file://Example of the Clear Method
procedure TForm1.ClearClick(Sender: TObject);
& dbgrid1.SelectedRows.C
file://Example of the Delete Method
procedure TForm1.DeleteClick(Sender: TObject);
& DBgrid1.SelectedRows.D
&& This example iterates through the selected rows of the grid and displays the second field of the dataset.
&& The Method DisableControls is used so that the DBGrid will not update when the dataset is changed. The last position of the dataset is saved as a TBookmark.
&& The IndexOf method is called to check whether or not the bookmark is still existent.
&& The decision of using the IndexOf method rather than the Refresh method should be determined by the specific application.
procedure TForm1.SelectClick(Sender: TObject);
& TempBookmark: TBookM
& DBGrid1.Datasource.Dataset.DisableC
& with DBgrid1.SelectedRows do
& if Count & 0 then
&&& TempBookmark:= DBGrid1.Datasource.Dataset.GetB
&&& for x:= 0 to Count - 1 do
&&&&& if IndexOf(Items[x]) & -1 then
&&&&& begin
&&&&&&& DBGrid1.Datasource.Dataset.Bookmark:= Items[x];
&&&&&&& showmessage(DBGrid1.Datasource.Dataset.Fields[1].AsString);
& DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.EnableC
This example allows you to set a bookmark and& and then search for the bookmarked record within selected a record(s) within the DBGrid.
file://Sets a bookmark
procedure TForm1.GetBookMarkClick(Sender: TObject);
& Bookmark1:= DBGrid1.Datasource.Dataset.GetB
file://Frees the bookmark
procedure TForm1.FreeBookmarkClick(Sender: TObject);
& if assigned(Bookmark1) then
&&& DBGrid1.Datasource.Dataset.FreeBookmark(Bookmark1);
&&& Bookmark1:=
file://Uses the Find method to locate the position of the bookmarked record within the selected list in the DBGrid
procedure TForm1.FindClick(Sender: TObject);
& if assigned(Bookmark1) then
&&& if DBGrid1.SelectedRows.Find(TBookMarkStr(Bookmark1),z) then
&&&&& showmessage(inttostr(z));
& 10:11:21&&& 另外一种可以在在Delphi中随意控制DBGrid 每一行颜色的方法&& 有个问题是在Delphi中使用DBGrid时，如何让DBGrid中每一行颜色按照用户自己的意愿控
制。最初看到这个问题时，我们以为非常非常简单，所以马上动手准备解决它。结果却发现不是
那么回事，传统方法根本不能发挥作用。在电脑面前一直坐到凌晨4点，不断地调试，幸运地是凭借平时积累的一点编程经验，终于找到 了开门的匙钥。现将它充公，供大家享用。
&1、 数据表的建立
&& 在Delphi的工具菜单中选择Database desktop，在数 据库DBDemos下建立一个名为
example.db的数据表。数据表的字段和内容如下：
Name& Age& Wage
张山& 25& 500
王武& 57& 1060
李市& 30& 520
刘牛& 28& 390
& 2、创建基于TDBGrid的TColoredDBGrid组件
&&& 在Delphi组件菜单中，选择New Component,在 弹出对话框中作以下设置：
Ancestor Type& =&& TDBGrid
Class& Name&& =&& TColoredDBGrid
& 然后单击OK按钮，Delphi自动完成组件基本框架的定义。增添OnDRawColoredDBGrid事件并
使它出现在Object Inspector的Events中以便在应用程序中设定改变行颜色的条件。重载
DrawCell方法，只能自己绘制单元格。不能通过在OnDrawColumnCell来设置颜色，因为在
OnDrawColumnCell改变单元格的颜色会再次触发OnDrawColumnCell。
&&& 下面就是所创建组件的源程序 。
& 3、建立应用程序进行验证。
&&& 在Delphi文件菜单中选择New建立新的应用程序工程Project1和主窗体Form1，设置Form1的
Caption属性为&控制DBGrid行颜色的示例&。在主窗体上添加Data Source、Table、Button和
ColoredDBGrid组件。设置各组件的属性如下：
Table1.Database=&DBDemos&
Table1.Tablename=&example.db&
Datasource1.Dataset=Table1
ColoredDBGrid1.Datasource=DataSource1
Button1.Caption=&退出&
&&& 在ColoredDBGrid1的onDRawColoredDBGrid事件中输入下列代码，设定由Wage（工资）来决
定在ColoredDBGrid1各行的颜色。
procedure TForm1.ColoredDBGrid1 DRawColoredDBGrid (Sender: TO& Field: TF var Color: TC var Font: TFont);
&&& p := Table1.FindField('wage').AsI
& file://取得当前记录的Wage字段的值。
&&& if (p & 500) then begin&&&&&&&&&&&&&&&&
file://程序将根据wage值设置各行的颜色。
&&&&& Color := clG
&&&&& Font.Style := [fsItalic];&&&&&
file://不仅可以改变颜色,还可以改变字体
&&& if(p &= 500) And (p & 800) then
&&&&& Color := clR
&&& if(p &=800) then begin
&&&&& Color := clM
&&&&& Font.Style := [fsBold];
file://用&退出&按钮结束程序运行。
procedure TForm1.Button1Click(Sender: TObject);
& 10:16:11&&& 在一个Dbgrid中显示多数据库&&& 在数据库编程中，不必要也不可能将应用程序操作的所有数据库字段放入一个数据库文件中。正确的数据库结构应是：将数 据库字段放入多个数据库文件，相关的数据库都包含一个唯一
的关键字段，在多数据库结构里可 以建立联系。
&&& 例如：要编制一个人事管理程序，为简化演示程序，只建立两个数据 库，每个数据库都只建
立两个字段。
&&& 个人简介 jianjie.dbf， 由人事处维护；工资情况 gongzi.dbf，由财务处维护。
&&& 1.数据库的建立
&&& 进入DataBase Desktop，建立 数据库结构如下：
&&&&& jianjie.dbf
&&& 编号 字段名:bianhao size:4 type:number
&&& 姓名 字段名:xingming size:10 type:character
&& gongzi.dbf
&&& 编号 字段名:bianhao size:4 type:number
&&& 工资 字段名:gongzi size:4 Dec 2 type:number
& 注意： 两个数据库的bianhao字段的size、type必须一致。实际上，两数据库文件可以分布
在网络的不同计算机上，为便于演示，分别存为&Pc: /test/jianjie.dbf&P和 &Pc:/test
/gongzi.dbf&P。
& 2.应用程序的编制
&&& 启动Delphi， 新建一个工程，在窗体中加入Query控件Query1，databasename属性设为c:
&& 加入DataSource控件datasource1， DataSet属性设为Query1； 加入DbGrid控件 dbgrid1，
DataSource属性设为DataSource1，将Query1.sql属性设为
&& SELECT DISTINCT A.bianhao,a.xingming, b.gongzi
&&& FROM &Pjianjie.dbf&P A, &Pgongzi.DBF&P b
&&& WHERE A.bianhao=b.bianhao
&& 再将Query1.enabled属性设为True， 不用编译， DbGrid1就会显示: bianhao，
xingming， gongzi三个字段。 如果jianjie.dbf和gongzi.dbf中有记录，则记录会显示出来。因
篇幅所限，此文只介绍 了Dbgrid中显示多个数据库内容的一般方法，读者可在此基础上进行完
善，使该方法更好地适应您的需 要。
10:19:40&&& 在 DBGrid 中如何让回车变为光标右移动
在Form.OnKeyPress事件中写如下代码：
&if Key = #13 then
& if ActiveControl = DBGrid1 then begin
&&& TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
&&& Key := #0;
有2点需要注意：
& 1.当光标达到DBGird最右列的时候，再按回车，光标还会停留在原地。
& 2.Key := #0
& 10:25:07&&& 从 DBGrid 中复制记 录procedure TForm1.DBGrid1DblClick(Sender: TObject);
&& HadToOpen :
&& with Sender as TDBGrid do begin
&&&&& HadToOpen := not tTarget.A
&&&&& if HadToOpen then
&&&&&&&& tTarget.Active := T
&&&&& tTarget.A
&&&&& for x := 0 to FieldCount - 1 do
&&&&&&&& case Fields[x].DataType of
&&&&&&&&&&& ftBoolean : tTarget.FieldByName(Fields[x].FieldName).AsBoolean := Fields[x].AsBoolean
&&&&&&&&&&& ftString : tTarget.FieldByName(Fields[x].FieldName).AsString := Fields[x].AsString
&&&&&&&&&&& ftFloat : tTarget.FieldByName(Fields[x].FieldName).AsFloat := Fields[x].AsFloat
&&&&&&&&&&& ftInteger : tTarget.FieldByName(Fields[x].FieldName).AsInteger := Fields[x].AsInteger
&&&&&&&&&&& ftDate : tTarget.FieldByName(Fields[x].FieldName).AsDateTime := Fields[x].AsDateT
&&&&& tTarget.P
&&&&& if HadToOpen then
&&&&&&&& tTarget.Active := F
& 10:27:58&&& 使用 DBGrid 的复选项（请参考如何在DBGrid中能支持多项记录的选择）procedure TForm1.SelectClick(Sender: TObject);
& TempBookmark: TBookM
& DBGrid1.Datasource.Dataset.DisableC
& with DBgrid1.SelectedRows do
&&& if Count && 0 then
&&&&& TempBookmark:= DBGrid1.Datasource.Dataset.GetB
&&&&& for x:= 0 to Count - 1 do
&&&&& begin
&&&&&&& if IndexOf(Items[x]) & -1 then
&&&&&&& begin
&&&&&&&&& DBGrid1.Datasource.Dataset.Bookmark:= Items[x];
&&&&&&&&& showmessage(DBGrid1.Datasource.Dataset.Fields[1].AsString);
& DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.EnableC
& 10:32:27&&& 在DBGrid上Drag & Drop（拖放）我们在做程序中发现，如果能够让用户将一个Edit的内容直接拖放到一个DBGrid里，会显得很方便，但在程序编制过程中发现，似乎拖放只能拖放到 当前的记录上，那假如要拖放到其他记录又怎么办呢，总不能让用户先选择记录，然后再拖放吧。
&&& 后来，通过研究发现，当用鼠标点DBGrid时，DBGrid会自动将记录指针移动到所点击的记录上，这就给了我一个思路，让 程序模拟在DBGrid上的一次点击先让光标移动到那条记录上，然后就可以将拖放的数据写入DBgrid里面了。
&&& 通过事实证明这个思路是可行的。下面，我就告诉大家我的做法：
&&& 1) 首先在Form上放一个DBGrid，并它能够显示记录，(这比较简单，就不用多说了)
&&& 2) 在Form上放一个Edit
&&& 3) 修改Edit的属性，把DragMode改为dmAutoMatic, 让用户能够拖放
&&& 4) 在Dbgrid的DragOver事件中增加如下代码： 让它能够接收 Drag & drop
procedure TForm1.DBGrid1DragOver(Sender, Source: TO X, Y: I State: TDragS var Accept: Boolean);
& accept:=
& 5) 在Dbgrid的DragDrop事件中增加如下代码： 让它能够自动跳到光标所指定的记录上
procedure TForm1.DBGrid1DragDrop(Sender, Source: TO X, Y: Integer);
& if Source&&Edit1
& with Sender as TDbGrid do begin
&&& Perform(wm_LButtonDown,0,MakeLong(x,y));
&&& PerForm(WM_LButtonUp,& 0,MakeLong(x,y));
&&& SelectedField.Dataset.
&&& SelectedField.AsString:=Edit1.
& 至此，我们就实现了想要的功能，其中PerForm是TControl的一个通用方法目的是绕过Windows本身的消息循环，而将消息直接发给要发的Control，其具体使用方法请参考Delphi的帮助。
& 10:39:19&&& 如何使DBGrid的指针不移动？
【问题】：我用DBGRID显示TABLE中的内容,现在我要从头到尾读一遍TABLE里的数据,用
Table1.First,Next来做会使DBGRID里面的指针也跟着跑,怎么才能使这时候DBGRID里面的指针不
【答案】：使用如下代码即可：
with DataSet do
& DisableC
finally
& EnableC
& 10:42:14&&& 如何动态更新DBGrid的颜色？（请同时参考&如何使DBGRID网格的颜色随此格中的数据值的变化而变化？&）&& DBGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如，如果 一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell.
& procedure TForm1.DBGrid1DrawColumnCell(Sender: TO const Rect:TRDataCol:
I Column: TC State: TGridDrawState);
&&& if Table1.FieldByName('Population').AsInteger &
&&&&& DBGrid1.Canvas.Font.Color := clB
&&& DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
& 上面的例子是简单的，但是你可以根据自己的需要扩充，例如字体也 变化等，甚至你可以调用画圆的函数在数字上画上一个红色的圆圈。
& 10:45:14&&& 使用DBGrid显示日期&& 在使用 DBGRID 控件时显示 DATATIME 时其年份是为2位的，但我们在步入2000年后需要显示的日期是4位，如：。在数据库中该字段只有在2000年后才会显示4位，怎么办呢？ 下面我们就让该字段在DBGRID控件中也显示4位的日期格式： 双击 Table1 控件，就 会出现 form1.table 窗体，击右键，选 Add Fields...，选择日期字段后按ok，窗体中就出现了数据库的日期字段名，点日期的那个字段名，属性 框里就出现了该字段的信息，里面有一项 DispalyFormat，在该显示格式里输入 yyyy.mm.dd ， 那么DBGRID控件就出现完整的日期了。
10:48:37&&& 在TDBGrid控件中实现拖放的另外一个思路（请同时参考在DBGrid上Drag & Drop（拖 放））&& 在本unit中，自定义TMyCustomDBGrid=class(TCustomDBGrid),再如下引用:
&&& TMyCustomDBGrid(DBGrid1).MouseDown(...)
&&& DBGrid1 as TMyCustomDBGrid).MouseDown(...)即可。
& 10:56:11&&& 在dbgrid表格中如何设置按回车键相当于单click？【例程】：
&&& 在窗体form1中放入table1,datasource1,dbgrid1,设好联连关系，使 dbgrid1 中能正 确显示出table1的数据。然后：
procedure TForm1.DBGrid1KeyPress(Sender: TO
var Key: Char);
& with DBGrid1 do
&&& if Key=#13 then
&&&&& DBGrid1CellClick(Columns[SelectedIndex]);
procedure TForm1.DBGrid1CellClick(Column: TColumn);
& with DBGrid1 do
&&& showmessage(format('row=%d',[SelectedIndex]));
& 11:07:55&&& Delphi 的 DBGrid 中的下拉列表和查找字段编程方法&& 数据网格是非常流行的数据输入和显示形式，像大家熟悉的Excel、VFP 中的功能强大的BROWS 等，为广大程序员乐于采用。在用 Delphi 开发数据 库应用系统时，利用数据网格DBGrid 输入数据时，有些字段只允许某几个固定的字符串，像档案案卷的保管期限，只有&永久&、&长期&和&短期&三种， 可否从一个下拉列表中进行选择，从而方便输入和避免输入错误呢？还有一些字段，例如职工信息库中的单位编号（在另外的单位库中保存着单位的详细信息），在 输入和显示职工数据时，能否不对单位编号进行操作，而代之于更加直观的单位库中的单位名称呢？答案是肯定的，Delphi 的数据网格控件 DBGrid，支持下拉 列表和查找字段的编程，而且，编程的过程都是可视化的，不需要写一行语句。
一、DBGrid 中的下拉列表
&&& 在 DBGrid 网格中实 现下拉列表，设置好 DBGrid 中该字段的 PickList 字符串列表、初始的序号值 DropDownRows 即可。以职工信息库中的籍贯字段（字符串类型）为例，具体设计步骤如下：
& 1、在窗体上放置Table1、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设 置各个对象的属性:
---------------------------------------
对象&&&&&& 属性&&&&&&&& 设定值
---------------------------------------
Table1&&&&&& DataBase&&&& sy1
&&&&&&&&&&&& Table&&&&&&& zgk.dbf&& file://职工信息库
DataSource1& DataSet&&&&& Table1
DbGrid1&&&&& DataSource&& DataSource1
DBNavigator1 DataSource&& Datasource1
&2、双击Table1, 在弹出的Form1.Table1 窗口中，用右键弹出快 捷菜单，单击Add Fields 菜单项；选择所有的字段后，按OK 按钮。
&3、修改第2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH, 修 改属性 DisplayLabel= 职工编号，其余字段类似。
&4、双击 DBGrid1, 在弹 出的 Editing DBGrid1.Columns 窗口中，单击 Add all Fields 按 钮，增加Table1 的所有字段。
5、在 Editing DBGrid1.Columns 窗口，选择 jg 这一行，切换到 Object Inspector 窗口，修改它的 PickList.Strings 为&湖北枝江市（换行）北京市（换行）河南平顶山市（换行）浙江德清市&
&6、在 Form1.Oncreate 事件中写入语句：
&& Table1.O
&7、F9 运行，用鼠标点击某个记录的籍贯字段，右边即出现一个按钮，点击 这个按钮，可出现一个下拉列表，包含第5 步中输入的四行字符串，可用鼠标进行选择。当然也可以自行输入一个并不属下拉列表中的字符串。
二、DBGrid 中的查找字段
&&& 所谓查找字段 (LookUp Field)，即 DBGrid 中的某个关键字段的数值来源于另外一个数据库的相应字段。运用查找字段技术，不仅可以有效的避免输入错 误，而且 DBGrid 的显示方式更为灵活，可以不显示关键字段，而显示源数据库中相对应的另外一个字段的数据。
---- 例如，我们在 DBGrid 中显示和 编辑职工信息，包括职工编号、职工姓名、籍贯、所在单位编号，而单位编号来源于另一个数据库表格&&单位库，称&单位编号&为关键字段。如果我们直接显示 和编辑单位编号的话，将会面对1、2、3 等非常不直观的数字，编辑时极易出错。但是如果显示和编辑的是单位库中对应的单位名称话，将非常直观。这就是DBGrid 的所支持的查找字段带 来的好处。
&& 实现DBGrid 的查找字段同样不需要 任何语句，具体设计步骤如下：
& 1、在窗体上放置 Table1、Table2、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设 置各个对象的属性:
---------------------------------------
对象&&&&&& 属性&&&&&&&& 设定值
---------------------------------------
Table1&&&&&& DataBase&&&& sy1
&&&&&&&&&&&& Table&&&&&&& zgk.dbf&& file://职工信息库
Table2&&&&&& DataBase&&&& sy1
&&&&&&&&&&&& Table&&&&&&& dwk.dbf&& file://单位信息库
DataSource1& DataSet&&&&& Table1
DbGrid1&&&&& DataSource&& DataSource1
DBNavigator1 DataSource&& Datasource1
------------------------------------------
& 2、双击 Table1, 在弹出 的 Form1.Table1 窗口中，用右键弹出快捷菜单，单击 Add Fields 菜单项；选择所有的字段后，按OK 按钮。
& 3、修改第2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH, 修 改属性 DisplayLabel= 职工编号，其余字段类似。
&4、设置 Table1DWBH.Visible=False。
&5、在 Form1.Table1 窗口，用右键弹出快捷菜单，单击 New Field 菜单项，新增一个查找字段DWMC，在弹出的窗口设置相应的属性, 按 OK 按钮确认；在 Object Inspector 窗口，设置 Table1DWMC.DisplayLabel= 单位名称。
& 6、在 Form1.Oncreate 事件中写入语句：
&&& Table1.O
&7、按 F9 运行，当光标移至某个记录的单位名称字段时，用鼠标点击该字段， 即出现一个下拉列表，点击右边的下箭头，可在下拉列表中进行选择。在这里可以看出，下拉列表的内容来自于单位信息库，并且不能输入其他内容。
三、DBGrid 中的下拉列表和查找字段的区别
&&& 虽然 DBGrid 中的下拉 列表和查找字段，都是以下拉列表的形式出现的，但两者有很大的差别。
& 1、用 PickList 属性 设置的下拉列表，它的数据是手工输入的，虽然也可以在程序中修改，但动态特性显然不如直接由另外数据库表格提取数据的查找字段。
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：461576次
积分：6821
积分：6821
排名：第1282名
原创：151篇
转载：427篇
评论：34条
(4)(4)(5)(4)(6)(2)(6)(4)(5)(7)(4)(8)(2)(4)(17)(16)(7)(20)(8)(16)(18)(20)(7)(23)(15)(18)(3)(18)(23)(16)(11)(14)(18)(6)(3)(9)(20)(54)(8)(2)(100)(2)(1)(11)(14)(1)(1)(7)(1)(3)(1)}
&来源：读书人网&【读书人网()：综合教育门户网站】
关于DELPHI中的DBGRID下拉框问题小弟现在在做一个程序，关于DBGRID的，我在DBGRID中实现了一个下拉框，但却无
关于DELPHI中的DBGRID下拉框问题小弟现在在做一个程序，关于DBGRID的，我在DBGRID中实现了一个下拉框，但却无法将下拉框中的内容选择到DBGRID的单元格中去，请问要怎么设置或者在哪里写程序吗？请各位大虾帮帮小弟吧~~~跪谢先 ！！！[解决办法]DBGrid中实现下拉框，不用自己建，有现成的。设置DBGrid1中每一列的PickList属性即可。[解决办法]DBGrid.Columns[0].PickList.Add('你要下拉的字符串');[解决办法]DBGrid1.Columns[3].PickList:=memo1.DELPHI高手进，DBGRID列宽怎么调？_百度知道
DELPHI高手进，DBGRID列宽怎么调？
怎样逐列定义DBGRID控件中每列的宽度，有的根本没必要太宽查询的结果在DBGRID控件中显示，列宽不一，不知怎么搞的
提问者采纳
双击dbgrid: Add All Fields3,在它的属性栏,出现一个编辑框:EDITING DBGRID1.COLUNMS2.选择需要设置的行.如果是空白的话,点击第三个图标,直接设置他了WINDTH值为你想要的,显示数据后可做如下动作调节你的列宽设置好你的dbgrid:1.ok
提问者评价
是是，您说的很对！
其他类似问题
按默认排序
其他1条回答
保存后就可以了在设计界面中，直接调整DBGrid的列宽为合适的尺寸，打开数据集（TQuery或者TTable）后
dbgrid的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Delphi DBGrid总结 - beyondqd的专栏
- 博客频道 - CSDN.NET
4952人阅读
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段 之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编 程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
&&& 以下的示例程序演示了对 DBGrid 各属性的 设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。
&&& 示例程序的运行：
&&& 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置 相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本 代码在 Windows98、Delphi5.0 环境下调试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TO
& const Rect: TR DataCol: I Column: TCState: TGridDrawState);
& if gdSelected in State then E
file://定义表头的字体和背景颜色：
&&& for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
&&&&& (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; file://字体
&&&&& (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; file://字体大小
&&&&& (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000 file://字体颜色(红色)
&&&&& (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; file://背景色(绿色)
file://隔行改变网格背景色：
& if Query1.RecNo mod 2 = 0 then
&&& (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk file://定义背景颜色
&&& (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); file://定义背景颜色
file://定义网格线的颜色：
&&& DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
& with (Sender as TDBGrid).Canvas do file://画 cell 的边框
&&& Pen.Color := $00ff0000; file://定义画笔颜色(蓝色)
&&& MoveTo(Rect.Left, Rect.Bottom); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画蓝色的横线
&&& Pen.Color := $0000ff00; file://定义画笔颜色(绿色)
&&& MoveTo(Rect.Right, Rect.Top); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画绿色的竖线
& 17:31:41&&& 原来还有这个办法啊，在没有DevExpress之前....
我会陆续添加的
17:07:42&&& 问题: Delphi5 - 隔行改变DBGrid网格颜色&& 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置 相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序
procedure TForm1.DBGrid1DrawColumnCell(Sender: TO const Rect: TR
&DataCol: I Column: TC State: TGridDrawState);
& if gdSelected in State then E& file://隔行改变网格背景色：
&&& if adoQuery1.RecNo mod 2 = 0 then
&&&&& (Sender as TDBGrid).Canvas.Brush.Color := clinfobk file://定义背景颜色
&&& (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223);& file://定义背景颜色
定义网格线的颜色：
& DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
& with (Sender as TDBGrid).Canvas do file://画 cell 的边框
&&& Pen.Color := $00ff0000; file://定义画笔颜色(蓝色)
&&& MoveTo(Rect.Left, Rect.Bottom); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画蓝色的横线
&&& Pen.Color := file://定义画笔颜色(兰色)
&&& MoveTo(Rect.Right, Rect.Top); file://画笔定位
&&& LineTo(Rect.Right, Rect.Bottom); file://画绿色
用BDE中的table1未能通过，颜色没有隔行变化。&
17:12:09&&& 在Delphi的DBGrid中插入其他可视组件&& Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可 以通过在DBGrid中插入其他可视组件来实现这一点。
& Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件&&DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组 件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。
& 1、在Delphi 4.0中新建一个项 目。
& 2、分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板 上DBGrid，DBComboBox四个组件到Form1上。
& 3、设置各个组件的属性如下：
rcf1对象 属性 设定植
Form1 Caption '在DBGrid中插入SpinEdit组件示例'
DataSource1 DataSet Table1
Table1 DatabaseName DBDEMOS
TableName 'teacher.DBF'
Active True
DBGrid1 DataSource DataSource1
DBComboBox1 DataField SEX
DataSource DataSource1
Visible False
Strings Items. '男'| '女'
注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是&男&或者是&女&。
4、DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的 字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：
procedure TForm1.DBGrid1DrawDataCell(Sender: TO const Rect: TR Field: TF State: TGridDrawState);
& if (gdFocused in State) then
&&& if (Field.FieldName = DBComboBox1.DataField ) then
&&&&& DBComboBox1.Left := Rect.Left + DBGrid1.L
&&&&& DBComboBox1.Top := Rect.Top + DBGrid1.
&&&&& DBComboBox1.Width := Rect.Right - Rect.L
&&&&& DBComboBox1.Height := Rect.Bottom - Rect.T
&&&&& DBComboBox1.Visible := T
5、DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
procedure TForm1.DBGrid1ColExit(Sender: TObject);
& If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
&&&&& DBComboBox1.Visible :=
& 6、当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函 数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：
procedure TForm1.DBGrid1KeyPress(Sender: TO var Key: Char);
& if (key & & chr(9)) then
&&& if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
&&&&& DBComboBox1.SetF
&&&&& SendMessage(DBComboBox1.Handle，WM_Char，word(Key)，0);
&& 程序在中文Windows 98，Delphi 4.015 下调试通 过。希望本文能使你可以更加方便快捷的开发数据库应用程序。&
17:17:56&&& 锁定DBGrid左边的列&&& 我在使用 Delphi3 进行数 据库编程的时候，希望 DBGRID 构件在显示数据的时候能象FoxPro 的 BROWSE 命令一样，锁定左边指定的几列不进行滚动，请问应用什么方法来实 现？
&& 我们知道 Delphi 的 TStringGrid 有一个属性 FixedCols 来 指定不滚动的列。虽然TDBGrid 不能直接使用这一属性，但通过强制类型转换也可以首先这一功能，因为这两个类都来自 TCustomGrid 类。 下面我们以 Delphi 3.0的 Demos/Db/CtrlGrid 为例来说明具体的用法。在这个例子的 TFmCtrlGrid.FormShow 过程中加入如下一行：
& TStringGrid(DbGrid1).FixedCols := 2;
运行该程序，在左右移动各列时，Symbol 列不会移动。除了这种 方法，也可以采用下面的方法：首先在 Form 声明部分加上
&& type TMyGrid = Class(TDBGrid)
& 然后在 TFmCtrlGrid.FormShow 过程中加入：
TMyGrid(DbGrid1).FixedCols := 2;
两者从形式上略有不同，但实质都 是一样的。我们这里设置 FixedCols 为 2，这是因为在 DBGrid 构件最左 侧有个指示列，如果你将 DBGrid 的 Options 属性的 dgIndicator 设 为False，则应设置 FixedCols 为1。&
& 17:21:36&&& 使dbgrid的某几笔资料变色&& 你可在 DBGrid 元件的 DrawDataCell 事件中依资料的条件性来改变格子或文字的颜色.
OnDrawDataCell(...)
& with TDBGrid(Sender) do
&&& if (条件) then
&&&&& Canvas.TextOut(Rect.Left + 4
&&& Rect.Top + 2
'要 显示的文字如表格的资料');
&&& 而你会看到 DBGrid 的显示资 料怎麽有重叠的情况那是因为原本DBGrid要显示的资料与 TextOut 所显示的资料重叠
&&& 解决方法 :
&&& 在 Query 元件所加入的栏位(在元件上按右键会有 Add Fields...的选 单)在不 要显示资料的栏位的 OnGetText 事件中有一参数设定为 F
procedure TForm1.Query1Detail1GetText(Sender: TF var Text:
DisplayText: Boolean);
& // 决定在 DBGrid 得知表格 资料时要不要显示所得到的资料False -& 不显示
& // 就可避免与 TextOut 的文字 重叠了
& DisplayText : = F
&& 如果用 Delphi 3 处理 很简单.例 如:对表 中某字段当其数值小于0时为红字其他为黑字.
在 DBGrid.OnDrawColumnCell(...) 中:
& if TableField.AsInteger & 0 then
&&& DBGrid.Canvas.Font.Color := clRed
&&& DBGrid.Canvas.Font.Color := clB
& DBGrid.DefaultDrawColumnCell(...);
这样对 Field 指定的格式仍旧生效不必重写.&
17:25:29&&& 实战Delphi数据网格色彩特效&& Delphi中的数据网格控件(TDbGrid)对于显示和编辑数据库中大量的数据起着十分重要的作用；然而，在使 用数据网格控件的同时，也往往因为表格中大量的数据不易区分，而令操作者眼花缭乱。如何提高网格控件的易用性，克服它的此项不足呢？本文从改变数据网格的 色彩配置角度，提出了一种解决办法。
以下为数据网格控件的6种特殊效果的实现方法，至于数据网格控件与数据集如何连接的方法从略。
1. 纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示以 区别相邻的数据列。
file://在DbGrid的DrawColumnCell事件中编写如下代码：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clB file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clA file://奇数列用浅绿色
DbGrid1.Canvas.Pen.Mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
2. 纵向斑马线，同时以红色突出显示当前单元格效果：以突出显示当前选 中的字段。
file://将上述代码修改为：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clB file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clA file://奇数列用浅绿色
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
If Not DbGrid1.SelectedRows.CurrentRowSelected then
DbGrid1.Canvas.Brush.Color:=clR file://当前选 中单元格显示红色
DbGrid1.Canvas.Pen.Mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
上述两种方法突出了列的显示效果。
3．在数据网格中以红色突出显示当前选中的行。
&&& 设置DbGrid控件的Options属性中的dgRowSelect属性为真，Color属性为clAqua(背景色)
在DbGrid的DrawColumnCell事件中编写如下代码：
if ((State = [gdSelected]) or (State=[gdSelected gdFocused])) then
DbGrid1.Canvas.Brush.color:=clR file://当前行 以红色显示，其它行使用背景的浅绿色
DbGrid1.Canvas.pen.mode:=
DbGrid1.DefaultDrawColumnCell (Rect
4．行突显的斑马线效果：既突出当前行，又区分不同的列（字段）。
file://其它属性设置同3，将上述代码修改为：
if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
Case DataCol Mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clR file://当前选中行的偶数列显示红色
False: DbGrid1.Canvas.Brush.color:= file://当前选中行的奇数列显示蓝色
DbGrid1.Canvas.pen.mode:=
DbGrid1.DefaultDrawColumnCell (Rect
5．横向斑马线， 同时以红色突显当前行效果。
file://其它属性设置同3，将上述代码修改为：
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clA file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:= file://奇数行用蓝色表示
if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then file://选中行用红色显示
DbGrid1.Canvas.Brush.color:=clR
DbGrid1.Canvas.pen.mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
6．双向斑马线效果：即行间用不同色区分，同时，选中行以纵向斑马线 效果区分不同的列。
file://其它属性设置同3，将上述代码修改为：
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clA file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:= file://奇数行用蓝色表示
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
Case DataCol mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clR file://当前选中行的偶数列用红色
False: DbGrid1.Canvas.Brush.color:= clG file://当前选中行的奇数列用绿色表示
DbGrid1.Canvas.pen.mode:=pmM
DbGrid1.DefaultDrawColumnCell (Rect
上述6种方法分别就数据网格控件的列和行的色彩进行了设置，读者可以根据 自己的需要设置特效。该程序在Delphi5中测试通过。&
& 11:11:31&&& 点击DBGrid的Title对查询结果排序 关键词:DBGrid 排序&
欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击 另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。
procedure TFHkdata.SortQuery(Column:TColumn);
& SqlStr,myFieldName,TempStr:
& OrderPos:
& SavedParams: TP
& if not (Column.Field.FieldKind in [fkData,fkLookup])
& if Column.Field.FieldKind =fkData then
&&& myFieldName := UpperCase(Column.Field.FieldName)
&&& myFieldName := UpperCase(Column.Field.KeyFields);
& while Pos(myFieldName,';')&&0 do
& myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100);
& with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
&&& SqlStr := UpperCase(Sql.Text);
&&& // if pos(myFieldName,SqlStr)=0
&&& if ParamCount&0 then
&&&&& SavedParams := TParams.C
&&&&& SavedParams.Assign(Params);
&&& OrderPos := pos('ORDER',SqlStr);
&&& if (OrderPos=0) or (pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then
&&&&& TempStr := ' Order By ' + myFieldName + ' Asc'
&&& else if pos('ASC',SqlStr)=0 then
&&&&& TempStr := ' Order By ' + myFieldName + ' Asc'
&&&&& TempStr := ' Order By ' + myFieldName + ' Desc';
&&& if OrderPos&&0 then SqlStr := Copy(SqlStr,1,OrderPos-1);
&&& SqlStr := SqlStr + TempS
&&& Active := F
&&& Sql.Text := SqlS
&&& if ParamCount&0 then
&&&&& Params.AssignValues(SavedParams);
&&&&& SavedParams.F
& 11:13:57&&& 去掉DbGrid的自动添加功能
关键词:DbGrid&
移动到最后一条记录时再按一下&下&就会追加一条记录，如果去掉这项功能
&&& procedure TForm1.DataSource1Change(Sender: TO Field: TField);
&&&&& if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.C
& 12:05:46&&& DBGrid不支持鼠标的上下移动的解决代码(感谢 wangxian11 提 供)自己 捕捉WM_MOUSEWHEEL消息处理
& OldGridWnd : TWndM
procedure NewGridWnd (var Message : TMessage);
procedure TForm1.NewGridWnd(var Message: TMessage);
& IsNeg : B
& if Message.Msg = WM_MOUSEWHEEL then
&&& IsNeg := Short(Message.WParamHi) & 0;
&&& if IsNeg then
&&&&& DBGrid1.DataSource.DataSet.MoveBy(1)
&&&&& DBGrid1.DataSource.DataSet.MoveBy(-1)
&&& OldGridWnd(Message);
procedure TForm1.FormCreate(Sender: TObject);
& OldGridWnd := DBGrid1.WindowP
& DBGrid1.WindowProc := NewGridW
& 14:46:56&&& dbgrid中移动焦点到指定的行和列&& dbgrid是从TCustomGrid继承下来的，它有col与row属性，只不过是protected的，不能直接访问，要处理一下，可以这样：
& TDrawGrid(dbgrid1).row:=
&&& TDrawGrid(dbgrid1).col:=
&&& dbgrid1.
就可以看到效果了。
1 这个方法是绝对有问题的，它会引起DBGrid内部的混乱，因为DBGrid无法定位当前纪录，如果DBGrid只读也就罢了（只读还是会出向一些问题，比如原本只能单选的纪录 现在可以出现多选等等，你可以自己去试试），如果DBGrid可编辑那问题就可大了，因为当前纪录的关系，你更改的数据字段很可能不是你想象中的
&&& 2 我常用的解决办法是将 上程序改为（随便设置col是安全的，没有一点问题）
&&& TDrawGrid(dbgrid1).col:=1;
&&& dbgrid1.
这 就让焦点移到第一行第一列当中
14:55:26&&& 如何使DBGRID网格的颜色随此格中的数据值的变化而变化？&& 在做界面的时候，有时候为了突出显示数据的各个特性（如过大或者 过小等），需要通过改变字体或者颜色，本文就是针对这个情况进行的说明。
&如何使DBGRID网格的颜色随此格中的数据值的变化而变化。如&60的网格为红色？
&&& Delphi中数据控制构件DBGrid是用来反映数据表的最重要、也是最常用的构件。在应用程序中，如 果以彩色的方式来显示DBGrid，将会增加其可视性，尤其在显示一些重要的或者是需要警示的数据时，可以改变这些数据所在的行或列的前景和背景的颜 色。
DBGrid属性DefaultDrawing是用来控制Cell（网格）的绘制。若DefaultDrawing的缺省设置为True，意思是Delphi使用DBGrid的缺省绘制方法来制作网格和其中所包含的数据，数据是按与特定列 相连接的Tfield构件的DisplayFormat或EditFormat特性来绘制的；若将DBGrid的DefaultDrawing特性设置成False，Delphi就不绘制网格或其内容，必须自行在TDBGrid的OnDrawDataCell事件中提供自己的绘制例程（自画功能）。
在这里将用到DBGrid的一个重要属性：画布Canvas，很多构件都有这一属性。Canvas代表了当前被显示DBGrid的表面，你如果把另行定义的显示内容和风格指定给DBGrid对象的Canvas，DBGrid对象会把Canvas属性值在屏幕上显示出来。具体应用时，涉及到Canvas的Brush属性和FillRect方法及TextOut方法。Brush属性规定了DBGrid.Canvas显示的图像、颜色、风格以及访问Windows GDI 对象句柄，FillRect方法使用当前Brush属性填充矩形区域，方法TextOut输出Canvas的文本内容。
以下用一个例子来详细地说明如何显示彩色的DBGrid。在例子中首先要有一个DBGrid构件，其次有一个用来产生彩色筛选条件的SpinEdit构件，另外还有ColorGrid构件供自由选择数据单元的前景和背景的颜色。
1.建立名为ColorDBGrid的Project，在其窗体Form1中依次放入所需构件，并设置属性为相应值，具体如下所列：
Table1 DatabaseName: DBDEMOS
&&&& TableName: EMPLOYEE.DB
&&&& Active: T
& DataSource1 DataSet: Table1
& DBGrid1 DataSource1: DataSource1
&&&& DefaultDrawing: False
& SpinEdit1 Increment:200
&&&& Value: 20000
& ColorGrid1 GridOrdering: go16＊1
2.为DBGrid1构件OnDrawDataCell事件编写响应程序：
/这里编写的程序是&60的网格为红色的情况，其他的可以照此类推
procedure TForm1.DBGrid1DrawDataCell(Sender: TO const Rect: TRField: TF State: TGridDrawState);
if Table1.Fieldbyname(&Salary&).value&=SpinEdit1.value then
& DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
& DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundC
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.left＋2,Rect.top＋2,Field.AsString);
这个过程的作用是当SpinEdit1给定的条件得以满足时，如&salary&变量低于或等于SpinEdit1.Value时，DBGrid1记录以ColorGrid1的前景颜色来显示，否则以ColorGrid1的背景颜色来显示。然后调用DBGrid的Canvas的填充过程FillRect和文本输出过程重新绘制DBGrid的画面。
3.为SpinEdit1构件的OnChange事件编写响应代码：
procedure TForm1.SpinEdit1Change(Sender: TObject);
& DBGrid1.& file://刷新是必须的，一定要刷新哦
当SpinEdit1构件的值有所改变时，重新刷新DBGrid1。
4.为ColorGrid1的OnChange事件编写响应代码：
procedure TForm1.ColorGrid1Change(Sender: TObject);
& DBGrid1.&&& file://刷新是必须的，一定要刷新哦
当ColorGrid1的值有所改变时，即鼠标的右键或左键单击ColorGrid1重新刷新DBGrid1。
5.为Form1窗体（主窗体）的OnCreate事件编写响应代码：
procedure TForm1.FormCreate(Sender: TObject);
& ColorGrid1.ForeGroundIndex:=9;
ColorGrid1.BackGroundIndex:=15;
在主窗创建时，将ColorGrid1的初值设定前景为灰色，背景为白色，也即DBGrid的字体颜色为灰色，背景颜色为白色。
6.现在，可以对ColorDBGrid程序进行编译和运行了。当用鼠标的左键或右键单击ColorGrid1时，DBGrid的字体和背景颜色将随之变化。
在本文中，只是简单展示了以彩色方式显示DBGrid的原理，当然，还可以增加程序的复杂性，使其实用化。同样道理， 也可以将这个方法扩展到其他拥有Canvas属性的构件中，让应用程序的用户界面更加友好。
& 14:58:08&&& 判断Grid是否有滚动条？这是一个小技巧，如果为了风格的统一的话，还是不要用了。：）
& if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) && 0 then
&&& ShowMessage('Vertical scrollbar is visible!');
& if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) && 0 then
&&& ShowMessage('Horizontal scrollbar is visible!');
& 15:04:27&&& 两个Grid的同步滚动&& 在实际制作一个项目当中，有时候需要几个grid一起同步滚动以减少用户的操作量。希望下面那段代码对您有一定的 参考价值。
unit SyncStringG
& Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs, G
& TSyncKind = (skBoth, skVScroll, skHScroll);
& TSyncStringGrid = class(TStringGrid)
& FInSync: B
& FsyncGrid: TSyncStringG
& FSyncKind: TSyncK
{ Private declarations }
& procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;
& procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;
{ Protected declarations }
{ Public declarations }
& procedure DoSync(Msg, wParam: I lParam: Longint);
{ Published declarations }
& property SyncGrid: TSyncStringGrid read FSyncGrid write FSyncG
& property SyncKind: TSyncKind read FSyncKind write FSyncKind default skB
procedure R
implementation
procedure R
& RegisterComponents('Samples', [TSyncStringGrid]);
procedure TSyncStringGrid.WMVScroll(var Msg: TMessage);
& if not FInSync and Assigned(FSyncGrid) and (FSyncKind in [skBoth, skVScroll]) then
&&& FSyncGrid.DoSync(WM_VSCROLL, Msg.wParam, Msg.lParam);
procedure TSyncStringGrid.WMHScroll(var Msg: TMessage);
& if not FInSync and Assigned(FSyncGrid) and (FSyncKind in [skBoth, skHScroll]) then
&&& FSyncGrid.DoSync(WM_HSCROLL, Msg.wParam, Msg.lParam);
procedure TSyncStringGrid.DoSync(Msg, wParam: I lParam: Longint);
& FInSync := T
& Perform(Msg, wParam, lParam);
& FinSync := F
{****************************************}
& OldGridProc1, OldGridProc2: TWndM
& procedure Grid1WindowProc(var Message: TMessage);
& procedure Grid2WindowProc(var Message: TMessage);
procedure TForm1.Grid1WindowProc(var Message: TMessage);
& OldGridProc1(Message);
& if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or Message.msg = WM_Mousewheel)) then
&&& OldGridProc2(Message);
procedure TForm1.Grid2WindowProc(var Message: TMessage);
& OldGridProc2(Message);
& if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or (Message.msg = WM_Mousewheel)) then
&&& OldGridProc1(Message);
procedure TForm1.FormCreate(Sender: TObject);
& OldGridProc1 := StringGrid1.WindowP
& OldGridProc2 := StringGrid2.WindowP
& StringGrid1.WindowProc := Grid1WindowP
& StringGrid2.WindowProc := Grid2WindowP
9:35:04&&& 在Delphi中随意控制DBGrid 每一行的颜色简易方法&& Delphi中使用 DBGrid 控件时，每一列都能按需要随意地改变颜色，但要改变每一行的颜色却很难，那么在不重新制作新控制件的情况 下，有没有好的办法让DBGrid按照用户自己要求随意改变每一行颜色的？答案是有，下面介绍一种简单的方法。
& 要改变DBGrid每一行的颜色，只要在ONDrawColumnCell事件中设定要改变颜色的行的条件，
并指定DBGrid的Canvas.Brush.color属性并且把Canvas.pen.mode属性设成pmmask，再调用DBGrid 的DefaultDrawColumnCell方法即可。注意在改变这两个属性前要先保护好原来的
Canvas.Brush.color 属性的值，调节器用完成 DefaultDrawColumnCell 方法后要把原属性值改
回，现以 Delphi/demos/db/clientmd 目录下的演示程序 clintproj.dpr 为例子,做简单说明，下面是对程序中的栅格 MemberGrid 的 合条件的整行进行变色，变成黑体背景黄色的，其它不合条件的行的颜色为正常字体，白色背景，只在 DrawColumnCelL 事件中设条件其它的不变，如下：
procedure TClientForm.MemberGridDrawColumnCell(Sender: TO const Rect: TR
DataCol: I Column: TC State: TGridDrawState);
& oldcolor:
& if DM.ProjectTEAM_LEADER.Value = DM.Emp_ProjEMP_NO.Value then& {设定变色的行的条件}
&&&& MemberGrid.Canvas.Font.Style := [fsBold];
&&&& MemberGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
&&&& {上面是演示程序的原内容，以下是增加部分}
& if DM.ProjectTEAM_LEADER.Value =DM.Emp_ProjEMP_NO.Value then {设定变色的行的条件}
&&&& oldpm:= MemberGrid.Canvas.pen.
&&&& oldcolor:= MemberGrid.Canvas.Brush.
&&&& MemberGrid.Canvas.Brush.color:=
&&&& MemberGrid.Canvas.pen.mode:=
&&&& MemberGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
&&&& MemberGrid.Canvas.Brush.color:=
&&&& MemberGrid.Canvas.pen.mode:=
&&& 感觉上这个方法和前面的几个颜色控制方法的原理是一样的，都是通 过ONDrawColumnCell事件来实现变色醒目美化的功能。：）
& 9:43:56&&& 如何在DBGrid中能支持多项记录的选择&& 这份文档来自国外，粗略看了一下，很有用，推荐给大家学习使用。
【Question】： How to do multi-selecting records in TDBGrid?
&&& When you add [dgMultiSelect] to the Options property of a DBGrid, you give yourself the ability to select multiple records within the grid.
&&& The records you select are represented as bookmarks and are stored in the SelectedRows property.
&&& The SelectedRows property is an object of type TBookmarkList.& The properties and methods are described below.
// property SelectedRows: TBookmarkList read FB
//&& TBookmarkList = class
//&& public
&&&& {* The Clear method will free all the selected records within the DBGrid *}
&&&& // procedure C
&&&& {* The Delete method will delete all the selected rows from the dataset *}
&&&& // procedure D
&&&& {* The Find method determines whether a bookmark is in the selected list. *}
&&&& // function& Find(const Item: TBookmarkS
&&&& //&&&&& var Index: Integer): B
&&&& {* The IndexOf method returns the index of the bookmark within the Items property. *}
&&&& // function IndexOf(const Item: TBookmarkStr): I
&&&& {* The Refresh method returns a boolean value to notify whether any orphans were dropped (deleted) during the time the record has been selected in the grid.& The refresh method can be used to update the selected list to minimize the possibility of accessing a deleted record. *}
&&&& // function& Refresh: B& True = orphans found
&&&& {* The Count property returns the number of currently selected items in the DBGrid *}
&&&& // property Count: Integer read GetC
&&&& {* The CurrentRowSelected property returns a boolean value and determines whether the current row is selected or not. *}
&&&& // property CurrentRowSelected: Boolean
&&&& //&&&&& read GetCurrentRowSelected
&&&& //&&&&& write SetCurrentRowS
&&&& {* The Items property is a TStringList of TBookmarkStr *}
&&&& // property Items[Index: Integer]: TBookmarkStr
&&&& //&&&&& read GetI
unit Unit1;
& Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBT
& TForm1 = class(TForm)
&&& Table1: TT
&&& DBGrid1: TDBG
&&& Count: TB
&&& Selected: TB
&&& Clear: TB
&&& Delete: TB
&&& Select: TB
&&& GetBookMark: TB
&&& Find: TB
&&& FreeBookmark: TB
&&& DataSource1: TDataS
&&& procedure CountClick(Sender: TObject);
&&& procedure SelectedClick(Sender: TObject);
&&& procedure ClearClick(Sender: TObject);
&&& procedure DeleteClick(Sender: TObject);
&&& procedure SelectClick(Sender: TObject);
&&& procedure GetBookMarkClick(Sender: TObject);
&&& procedure FindClick(Sender: TObject);
&&& procedure FreeBookmarkClick(Sender: TObject);
&&& { Private declarations }
&&& { Public declarations }
& Form1: TForm1;
& Bookmark1: TB
implementation
{$R *.DFM}
file://Example of the Count property
procedure TForm1.CountClick(Sender: TObject);
& if DBgrid1.SelectedRows.Count & 0 then
&&& showmessage(inttostr(DBgrid1.SelectedRows.Count));
file://Example of the CurrentRowSelected property
procedure TForm1.SelectedClick(Sender: TObject);
& if DBgrid1.SelectedRows.CurrentRowSelected then
&&& showmessage('Selected');
file://Example of the Clear Method
procedure TForm1.ClearClick(Sender: TObject);
& dbgrid1.SelectedRows.C
file://Example of the Delete Method
procedure TForm1.DeleteClick(Sender: TObject);
& DBgrid1.SelectedRows.D
&& This example iterates through the selected rows of the grid and displays the second field of the dataset.
&& The Method DisableControls is used so that the DBGrid will not update when the dataset is changed. The last position of the dataset is saved as a TBookmark.
&& The IndexOf method is called to check whether or not the bookmark is still existent.
&& The decision of using the IndexOf method rather than the Refresh method should be determined by the specific application.
procedure TForm1.SelectClick(Sender: TObject);
& TempBookmark: TBookM
& DBGrid1.Datasource.Dataset.DisableC
& with DBgrid1.SelectedRows do
& if Count & 0 then
&&& TempBookmark:= DBGrid1.Datasource.Dataset.GetB
&&& for x:= 0 to Count - 1 do
&&&&& if IndexOf(Items[x]) & -1 then
&&&&& begin
&&&&&&& DBGrid1.Datasource.Dataset.Bookmark:= Items[x];
&&&&&&& showmessage(DBGrid1.Datasource.Dataset.Fields[1].AsString);
& DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.EnableC
This example allows you to set a bookmark and& and then search for the bookmarked record within selected a record(s) within the DBGrid.
file://Sets a bookmark
procedure TForm1.GetBookMarkClick(Sender: TObject);
& Bookmark1:= DBGrid1.Datasource.Dataset.GetB
file://Frees the bookmark
procedure TForm1.FreeBookmarkClick(Sender: TObject);
& if assigned(Bookmark1) then
&&& DBGrid1.Datasource.Dataset.FreeBookmark(Bookmark1);
&&& Bookmark1:=
file://Uses the Find method to locate the position of the bookmarked record within the selected list in the DBGrid
procedure TForm1.FindClick(Sender: TObject);
& if assigned(Bookmark1) then
&&& if DBGrid1.SelectedRows.Find(TBookMarkStr(Bookmark1),z) then
&&&&& showmessage(inttostr(z));
& 10:11:21&&& 另外一种可以在在Delphi中随意控制DBGrid 每一行颜色的方法&& 有个问题是在Delphi中使用DBGrid时，如何让DBGrid中每一行颜色按照用户自己的意愿控
制。最初看到这个问题时，我们以为非常非常简单，所以马上动手准备解决它。结果却发现不是
那么回事，传统方法根本不能发挥作用。在电脑面前一直坐到凌晨4点，不断地调试，幸运地是凭借平时积累的一点编程经验，终于找到 了开门的匙钥。现将它充公，供大家享用。
&1、 数据表的建立
&& 在Delphi的工具菜单中选择Database desktop，在数 据库DBDemos下建立一个名为
example.db的数据表。数据表的字段和内容如下：
Name& Age& Wage
张山& 25& 500
王武& 57& 1060
李市& 30& 520
刘牛& 28& 390
& 2、创建基于TDBGrid的TColoredDBGrid组件
&&& 在Delphi组件菜单中，选择New Component,在 弹出对话框中作以下设置：
Ancestor Type& =&& TDBGrid
Class& Name&& =&& TColoredDBGrid
& 然后单击OK按钮，Delphi自动完成组件基本框架的定义。增添OnDRawColoredDBGrid事件并
使它出现在Object Inspector的Events中以便在应用程序中设定改变行颜色的条件。重载
DrawCell方法，只能自己绘制单元格。不能通过在OnDrawColumnCell来设置颜色，因为在
OnDrawColumnCell改变单元格的颜色会再次触发OnDrawColumnCell。
&&& 下面就是所创建组件的源程序 。
& 3、建立应用程序进行验证。
&&& 在Delphi文件菜单中选择New建立新的应用程序工程Project1和主窗体Form1，设置Form1的
Caption属性为&控制DBGrid行颜色的示例&。在主窗体上添加Data Source、Table、Button和
ColoredDBGrid组件。设置各组件的属性如下：
Table1.Database=&DBDemos&
Table1.Tablename=&example.db&
Datasource1.Dataset=Table1
ColoredDBGrid1.Datasource=DataSource1
Button1.Caption=&退出&
&&& 在ColoredDBGrid1的onDRawColoredDBGrid事件中输入下列代码，设定由Wage（工资）来决
定在ColoredDBGrid1各行的颜色。
procedure TForm1.ColoredDBGrid1 DRawColoredDBGrid (Sender: TO& Field: TF var Color: TC var Font: TFont);
&&& p := Table1.FindField('wage').AsI
& file://取得当前记录的Wage字段的值。
&&& if (p & 500) then begin&&&&&&&&&&&&&&&&
file://程序将根据wage值设置各行的颜色。
&&&&& Color := clG
&&&&& Font.Style := [fsItalic];&&&&&
file://不仅可以改变颜色,还可以改变字体
&&& if(p &= 500) And (p & 800) then
&&&&& Color := clR
&&& if(p &=800) then begin
&&&&& Color := clM
&&&&& Font.Style := [fsBold];
file://用&退出&按钮结束程序运行。
procedure TForm1.Button1Click(Sender: TObject);
& 10:16:11&&& 在一个Dbgrid中显示多数据库&&& 在数据库编程中，不必要也不可能将应用程序操作的所有数据库字段放入一个数据库文件中。正确的数据库结构应是：将数 据库字段放入多个数据库文件，相关的数据库都包含一个唯一
的关键字段，在多数据库结构里可 以建立联系。
&&& 例如：要编制一个人事管理程序，为简化演示程序，只建立两个数据 库，每个数据库都只建
立两个字段。
&&& 个人简介 jianjie.dbf， 由人事处维护；工资情况 gongzi.dbf，由财务处维护。
&&& 1.数据库的建立
&&& 进入DataBase Desktop，建立 数据库结构如下：
&&&&& jianjie.dbf
&&& 编号 字段名:bianhao size:4 type:number
&&& 姓名 字段名:xingming size:10 type:character
&& gongzi.dbf
&&& 编号 字段名:bianhao size:4 type:number
&&& 工资 字段名:gongzi size:4 Dec 2 type:number
& 注意： 两个数据库的bianhao字段的size、type必须一致。实际上，两数据库文件可以分布
在网络的不同计算机上，为便于演示，分别存为&Pc: /test/jianjie.dbf&P和 &Pc:/test
/gongzi.dbf&P。
& 2.应用程序的编制
&&& 启动Delphi， 新建一个工程，在窗体中加入Query控件Query1，databasename属性设为c:
&& 加入DataSource控件datasource1， DataSet属性设为Query1； 加入DbGrid控件 dbgrid1，
DataSource属性设为DataSource1，将Query1.sql属性设为
&& SELECT DISTINCT A.bianhao,a.xingming, b.gongzi
&&& FROM &Pjianjie.dbf&P A, &Pgongzi.DBF&P b
&&& WHERE A.bianhao=b.bianhao
&& 再将Query1.enabled属性设为True， 不用编译， DbGrid1就会显示: bianhao，
xingming， gongzi三个字段。 如果jianjie.dbf和gongzi.dbf中有记录，则记录会显示出来。因
篇幅所限，此文只介绍 了Dbgrid中显示多个数据库内容的一般方法，读者可在此基础上进行完
善，使该方法更好地适应您的需 要。
10:19:40&&& 在 DBGrid 中如何让回车变为光标右移动
在Form.OnKeyPress事件中写如下代码：
&if Key = #13 then
& if ActiveControl = DBGrid1 then begin
&&& TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
&&& Key := #0;
有2点需要注意：
& 1.当光标达到DBGird最右列的时候，再按回车，光标还会停留在原地。
& 2.Key := #0
& 10:25:07&&& 从 DBGrid 中复制记 录procedure TForm1.DBGrid1DblClick(Sender: TObject);
&& HadToOpen :
&& with Sender as TDBGrid do begin
&&&&& HadToOpen := not tTarget.A
&&&&& if HadToOpen then
&&&&&&&& tTarget.Active := T
&&&&& tTarget.A
&&&&& for x := 0 to FieldCount - 1 do
&&&&&&&& case Fields[x].DataType of
&&&&&&&&&&& ftBoolean : tTarget.FieldByName(Fields[x].FieldName).AsBoolean := Fields[x].AsBoolean
&&&&&&&&&&& ftString : tTarget.FieldByName(Fields[x].FieldName).AsString := Fields[x].AsString
&&&&&&&&&&& ftFloat : tTarget.FieldByName(Fields[x].FieldName).AsFloat := Fields[x].AsFloat
&&&&&&&&&&& ftInteger : tTarget.FieldByName(Fields[x].FieldName).AsInteger := Fields[x].AsInteger
&&&&&&&&&&& ftDate : tTarget.FieldByName(Fields[x].FieldName).AsDateTime := Fields[x].AsDateT
&&&&& tTarget.P
&&&&& if HadToOpen then
&&&&&&&& tTarget.Active := F
& 10:27:58&&& 使用 DBGrid 的复选项（请参考如何在DBGrid中能支持多项记录的选择）procedure TForm1.SelectClick(Sender: TObject);
& TempBookmark: TBookM
& DBGrid1.Datasource.Dataset.DisableC
& with DBgrid1.SelectedRows do
&&& if Count && 0 then
&&&&& TempBookmark:= DBGrid1.Datasource.Dataset.GetB
&&&&& for x:= 0 to Count - 1 do
&&&&& begin
&&&&&&& if IndexOf(Items[x]) & -1 then
&&&&&&& begin
&&&&&&&&& DBGrid1.Datasource.Dataset.Bookmark:= Items[x];
&&&&&&&&& showmessage(DBGrid1.Datasource.Dataset.Fields[1].AsString);
& DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);
& DBGrid1.Datasource.Dataset.EnableC
& 10:32:27&&& 在DBGrid上Drag & Drop（拖放）我们在做程序中发现，如果能够让用户将一个Edit的内容直接拖放到一个DBGrid里，会显得很方便，但在程序编制过程中发现，似乎拖放只能拖放到 当前的记录上，那假如要拖放到其他记录又怎么办呢，总不能让用户先选择记录，然后再拖放吧。
&&& 后来，通过研究发现，当用鼠标点DBGrid时，DBGrid会自动将记录指针移动到所点击的记录上，这就给了我一个思路，让 程序模拟在DBGrid上的一次点击先让光标移动到那条记录上，然后就可以将拖放的数据写入DBgrid里面了。
&&& 通过事实证明这个思路是可行的。下面，我就告诉大家我的做法：
&&& 1) 首先在Form上放一个DBGrid，并它能够显示记录，(这比较简单，就不用多说了)
&&& 2) 在Form上放一个Edit
&&& 3) 修改Edit的属性，把DragMode改为dmAutoMatic, 让用户能够拖放
&&& 4) 在Dbgrid的DragOver事件中增加如下代码： 让它能够接收 Drag & drop
procedure TForm1.DBGrid1DragOver(Sender, Source: TO X, Y: I State: TDragS var Accept: Boolean);
& accept:=
& 5) 在Dbgrid的DragDrop事件中增加如下代码： 让它能够自动跳到光标所指定的记录上
procedure TForm1.DBGrid1DragDrop(Sender, Source: TO X, Y: Integer);
& if Source&&Edit1
& with Sender as TDbGrid do begin
&&& Perform(wm_LButtonDown,0,MakeLong(x,y));
&&& PerForm(WM_LButtonUp,& 0,MakeLong(x,y));
&&& SelectedField.Dataset.
&&& SelectedField.AsString:=Edit1.
& 至此，我们就实现了想要的功能，其中PerForm是TControl的一个通用方法目的是绕过Windows本身的消息循环，而将消息直接发给要发的Control，其具体使用方法请参考Delphi的帮助。
& 10:39:19&&& 如何使DBGrid的指针不移动？
【问题】：我用DBGRID显示TABLE中的内容,现在我要从头到尾读一遍TABLE里的数据,用
Table1.First,Next来做会使DBGRID里面的指针也跟着跑,怎么才能使这时候DBGRID里面的指针不
【答案】：使用如下代码即可：
with DataSet do
& DisableC
finally
& EnableC
& 10:42:14&&& 如何动态更新DBGrid的颜色？（请同时参考&如何使DBGRID网格的颜色随此格中的数据值的变化而变化？&）&& DBGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如，如果 一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell.
& procedure TForm1.DBGrid1DrawColumnCell(Sender: TO const Rect:TRDataCol:
I Column: TC State: TGridDrawState);
&&& if Table1.FieldByName('Population').AsInteger &
&&&&& DBGrid1.Canvas.Font.Color := clB
&&& DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
& 上面的例子是简单的，但是你可以根据自己的需要扩充，例如字体也 变化等，甚至你可以调用画圆的函数在数字上画上一个红色的圆圈。
& 10:45:14&&& 使用DBGrid显示日期&& 在使用 DBGRID 控件时显示 DATATIME 时其年份是为2位的，但我们在步入2000年后需要显示的日期是4位，如：。在数据库中该字段只有在2000年后才会显示4位，怎么办呢？ 下面我们就让该字段在DBGRID控件中也显示4位的日期格式： 双击 Table1 控件，就 会出现 form1.table 窗体，击右键，选 Add Fields...，选择日期字段后按ok，窗体中就出现了数据库的日期字段名，点日期的那个字段名，属性 框里就出现了该字段的信息，里面有一项 DispalyFormat，在该显示格式里输入 yyyy.mm.dd ， 那么DBGRID控件就出现完整的日期了。
10:48:37&&& 在TDBGrid控件中实现拖放的另外一个思路（请同时参考在DBGrid上Drag & Drop（拖 放））&& 在本unit中，自定义TMyCustomDBGrid=class(TCustomDBGrid),再如下引用:
&&& TMyCustomDBGrid(DBGrid1).MouseDown(...)
&&& DBGrid1 as TMyCustomDBGrid).MouseDown(...)即可。
& 10:56:11&&& 在dbgrid表格中如何设置按回车键相当于单click？【例程】：
&&& 在窗体form1中放入table1,datasource1,dbgrid1,设好联连关系，使 dbgrid1 中能正 确显示出table1的数据。然后：
procedure TForm1.DBGrid1KeyPress(Sender: TO
var Key: Char);
& with DBGrid1 do
&&& if Key=#13 then
&&&&& DBGrid1CellClick(Columns[SelectedIndex]);
procedure TForm1.DBGrid1CellClick(Column: TColumn);
& with DBGrid1 do
&&& showmessage(format('row=%d',[SelectedIndex]));
& 11:07:55&&& Delphi 的 DBGrid 中的下拉列表和查找字段编程方法&& 数据网格是非常流行的数据输入和显示形式，像大家熟悉的Excel、VFP 中的功能强大的BROWS 等，为广大程序员乐于采用。在用 Delphi 开发数据 库应用系统时，利用数据网格DBGrid 输入数据时，有些字段只允许某几个固定的字符串，像档案案卷的保管期限，只有&永久&、&长期&和&短期&三种， 可否从一个下拉列表中进行选择，从而方便输入和避免输入错误呢？还有一些字段，例如职工信息库中的单位编号（在另外的单位库中保存着单位的详细信息），在 输入和显示职工数据时，能否不对单位编号进行操作，而代之于更加直观的单位库中的单位名称呢？答案是肯定的，Delphi 的数据网格控件 DBGrid，支持下拉 列表和查找字段的编程，而且，编程的过程都是可视化的，不需要写一行语句。
一、DBGrid 中的下拉列表
&&& 在 DBGrid 网格中实 现下拉列表，设置好 DBGrid 中该字段的 PickList 字符串列表、初始的序号值 DropDownRows 即可。以职工信息库中的籍贯字段（字符串类型）为例，具体设计步骤如下：
& 1、在窗体上放置Table1、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设 置各个对象的属性:
---------------------------------------
对象&&&&&& 属性&&&&&&&& 设定值
---------------------------------------
Table1&&&&&& DataBase&&&& sy1
&&&&&&&&&&&& Table&&&&&&& zgk.dbf&& file://职工信息库
DataSource1& DataSet&&&&& Table1
DbGrid1&&&&& DataSource&& DataSource1
DBNavigator1 DataSource&& Datasource1
&2、双击Table1, 在弹出的Form1.Table1 窗口中，用右键弹出快 捷菜单，单击Add Fields 菜单项；选择所有的字段后，按OK 按钮。
&3、修改第2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH, 修 改属性 DisplayLabel= 职工编号，其余字段类似。
&4、双击 DBGrid1, 在弹 出的 Editing DBGrid1.Columns 窗口中，单击 Add all Fields 按 钮，增加Table1 的所有字段。
5、在 Editing DBGrid1.Columns 窗口，选择 jg 这一行，切换到 Object Inspector 窗口，修改它的 PickList.Strings 为&湖北枝江市（换行）北京市（换行）河南平顶山市（换行）浙江德清市&
&6、在 Form1.Oncreate 事件中写入语句：
&& Table1.O
&7、F9 运行，用鼠标点击某个记录的籍贯字段，右边即出现一个按钮，点击 这个按钮，可出现一个下拉列表，包含第5 步中输入的四行字符串，可用鼠标进行选择。当然也可以自行输入一个并不属下拉列表中的字符串。
二、DBGrid 中的查找字段
&&& 所谓查找字段 (LookUp Field)，即 DBGrid 中的某个关键字段的数值来源于另外一个数据库的相应字段。运用查找字段技术，不仅可以有效的避免输入错 误，而且 DBGrid 的显示方式更为灵活，可以不显示关键字段，而显示源数据库中相对应的另外一个字段的数据。
---- 例如，我们在 DBGrid 中显示和 编辑职工信息，包括职工编号、职工姓名、籍贯、所在单位编号，而单位编号来源于另一个数据库表格&&单位库，称&单位编号&为关键字段。如果我们直接显示 和编辑单位编号的话，将会面对1、2、3 等非常不直观的数字，编辑时极易出错。但是如果显示和编辑的是单位库中对应的单位名称话，将非常直观。这就是DBGrid 的所支持的查找字段带 来的好处。
&& 实现DBGrid 的查找字段同样不需要 任何语句，具体设计步骤如下：
& 1、在窗体上放置 Table1、Table2、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设 置各个对象的属性:
---------------------------------------
对象&&&&&& 属性&&&&&&&& 设定值
---------------------------------------
Table1&&&&&& DataBase&&&& sy1
&&&&&&&&&&&& Table&&&&&&& zgk.dbf&& file://职工信息库
Table2&&&&&& DataBase&&&& sy1
&&&&&&&&&&&& Table&&&&&&& dwk.dbf&& file://单位信息库
DataSource1& DataSet&&&&& Table1
DbGrid1&&&&& DataSource&& DataSource1
DBNavigator1 DataSource&& Datasource1
------------------------------------------
& 2、双击 Table1, 在弹出 的 Form1.Table1 窗口中，用右键弹出快捷菜单，单击 Add Fields 菜单项；选择所有的字段后，按OK 按钮。
& 3、修改第2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH, 修 改属性 DisplayLabel= 职工编号，其余字段类似。
&4、设置 Table1DWBH.Visible=False。
&5、在 Form1.Table1 窗口，用右键弹出快捷菜单，单击 New Field 菜单项，新增一个查找字段DWMC，在弹出的窗口设置相应的属性, 按 OK 按钮确认；在 Object Inspector 窗口，设置 Table1DWMC.DisplayLabel= 单位名称。
& 6、在 Form1.Oncreate 事件中写入语句：
&&& Table1.O
&7、按 F9 运行，当光标移至某个记录的单位名称字段时，用鼠标点击该字段， 即出现一个下拉列表，点击右边的下箭头，可在下拉列表中进行选择。在这里可以看出，下拉列表的内容来自于单位信息库，并且不能输入其他内容。
三、DBGrid 中的下拉列表和查找字段的区别
&&& 虽然 DBGrid 中的下拉 列表和查找字段，都是以下拉列表的形式出现的，但两者有很大的差别。
& 1、用 PickList 属性 设置的下拉列表，它的数据是手工输入的，虽然也可以在程序中修改，但动态特性显然不如直接由另外数据库表格提取数据的查找字段。
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：461576次
积分：6821
积分：6821
排名：第1282名
原创：151篇
转载：427篇
评论：34条
(4)(4)(5)(4)(6)(2)(6)(4)(5)(7)(4)(8)(2)(4)(17)(16)(7)(20)(8)(16)(18)(20)(7)(23)(15)(18)(3)(18)(23)(16)(11)(14)(18)(6)(3)(9)(20)(54)(8)(2)(100)(2)(1)(11)(14)(1)(1)(7)(1)(3)(1)}
我要回帖
更多关于 delphi dbgrid 属性 的文章
更多推荐
- ·姨姨王小娜的日常冰你晒这身穿着散步时拖你李炜斌手求婚，姨姨王小娜的日常冰你死不愿意舌濑你李炜斌春代！
- ·就是我发朋友圈忘了屏蔽班主任，然后发完给他不删你微信设置成仅聊天仅聊天，然后他会看到我的朋友圈共同好友给我点的赞吗？
- ·有哪些性价比高的营销策划推广公司公司值得推荐？
- ·问一下，陈海辛纯手工兰考的古琴能买吗有了解的吗？
- ·巴赫希望中国举办奥运会原话主席巴赫是哪个国家
- ·It's not myself.myself是什么意思思
- ·平均孔径越小的固体催化剂比表面积，其比表面积越大.这种说法对吗
- ·《非常事件读后感》好词好句
- ·-年级语文把句子补充完整关于春天来了的句子 什么融化了
- ·QQ设置无qq网名怎么设置空白才可以求解
- ·安宰贤的真实新浪微博的账号是什么是什么?
- ·登山赛车之天朝历险数据在文件管理叫啥名
- ·新下载的日语输入法，就是JP可以在桌面调，也可以在记事本打，可是在浏览器用不了输入法调不了，怎么回事？
- ·2012年07月份二手北奔自卸货车290马力5.4米大箱中支顶大约能卖多少钱
- ·做了肝穿检查说是乙型肝炎表面抗体轻微病变肝炎，是什么意思啊？ 肝穿检查准确率高吗？
- ·朋友对象都很好的，然后我和我的他们对象，他们俩个4个做公交，朋友对象老用她的胸部往我身上撞，特意的那种，
- ·我想问下，就是公司股权变更，已经办理到了银行开户这块了。营业执照，国税地税和国税有什么区别的证件跟代码证都变了，但
- ·爱普生l358打印机开关键和墨水灯都跳
- ·白白发布u盘打不开怎么办办
- ·求帮忙配置一台不带hd4000 4k显示器器4000-5000左右的主流电脑
- ·delphi dbgrid 颜色的列宽、居中等问题
- ·photoshop cs6安装包c 版安装包谁有？
- ·张夏电脑端中国移动wlan登陆界面一天多少钱
- ·鼠标左键连击怎么办在word中不能选中怎么办
- ·千里送亲娘打一人名中间的点怎么打
- ·iPad Airipad smart casee值得购买吗
- ·最近玩知乎日报吐槽，神现一名叫S MAN的吐槽帝，各种神回复，有木有人知道啊？
- ·华硕电脑win8怎样win8在哪设置开机密码码？
- ·有没有用在ipad上的ipad mini2 手写笔笔 要细一点的画图用的
- ·www.ygujizz.com用什么浏览器可以看到
- ·Wifi SD卡能电视无线wifi接收器接收吗
- ·你还在用白板笔擦不掉吗？OUT啦，现在是白板笔擦不掉墙，启智智能墙漆的时代啦！
- ·这是HPdc dc电源模块原理图，请问这个dc dc电源模块原理图的原理图怎么整理？
- ·笔记本硬件检测出现重新重映射扇区计数失败的扇区事件计数，怎么解决
- ·短彩信费是什么图片打开时直接跳转到微信界面是什么原因
