在delphi的dbgrid中插入其他可视组件_delphi教程

逃离我推掉我的手 2021-11-29 11:26 237阅读 0赞

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: TObject; const Rect: TRect;　Field: TField; State: TGridDrawState);  
begin  
　　if (gdFocused in State) then  
　　begin  
　　　　if (Field.FieldName = DBComboBox1.DataField ) then  
　　　　begin  
　　　　　　DBComboBox1.Left := Rect.Left + DBGrid1.Left;  
　　　　　　DBComboBox1.Top := Rect.Top + DBGrid1.top;  
　　　　　　DBComboBox1.Width := Rect.Right - Rect.Left;  
　　　　　　DBComboBox1.Height := Rect.Bottom - Rect.Top;  
　　　　　　DBComboBox1.Visible := True;  
　　 end;  
　end;  
end;  
  
5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：  
procedure TForm1.DBGrid1ColExit(Sender: TObject);  
begin  
　　If DBGrid1.SelectedField.FieldName　= DBComboBox1.DataField then  
　　begin  
　　　　DBComboBox1.Visible := false;  
　 end;  
end;  
  
6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，不过DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 视窗系统 API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：  
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);  
begin  
　　if (key < > chr(9)) then  
　　begin  
　　　　if (DBGrid1.SelectedField.FieldName　 =DBComboBox1.DataField) then  
　　　　begin  
　　　　　　 DBComboBox1.SetFocus;  
　　　　　　 SendMessage(DBComboBox1.Handle, WM\_Char, word(Key), 0);  
　　　　end;  
　　end;  
end;  
  
程式在中文视窗系统 98，Delphi 4.015 下调试通过。希望本文能使你能更加方便快捷的研发数据库应用程式。

转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/04/1403043.html

发表评论取消回复

表情：

评论列表（有 0 条评论，237人围观）

还没有评论，来说两句吧...

相关阅读

相关 delphi怎么在mysql中添加_在Delphi中操作Mysql

以前在VC中使用过MySQL，当时是找的一个现成的C++ MySQL类。最近在Delphi中又需要操作Mysql，最初找了个封闭过的类，但已经是七八年以前的程序了，我机器上装的

亦凉/ 2023年01月11日 14:26/ 0 赞/ 163 阅读

相关 delphi gif_在Delphi中使用GIF图像

delphi gif Even though Delphi does not natively support GIF image files formats (like B

本是古典何须时尚/ 2022年12月06日 15:46/ 0 赞/ 193 阅读

相关 delphi dbgrid_如何在Delphi DBGrid中对记录进行排序

delphi dbgrid [Delphi DBGrid][] is such a powerful component that you're probably using

川长思鸟来/ 2022年12月06日 15:45/ 0 赞/ 292 阅读

相关 delphi 自定义控件_Delphi中的自定义组件开发

delphi 自定义控件 [Components][] are essential elements of the Delphi environment. One of th

向右看齐/ 2022年12月06日 15:45/ 0 赞/ 413 阅读

相关 XP环境下在Delphi中调试COM+组件

现在应用系统流行用B/S开发，早几年前可是C/S的天下呢，我现在做的某航空公司货运结算维护工作，其系统就是利用Delphi开发的C/S应用程序！在日常的维护工作中，难免要对已

ゝ一纸荒年。/ 2022年06月17日 22:44/ 0 赞/ 159 阅读

相关 Delphi 的按钮组件

Delphi的按钮组建一共包含三种按钮组件，普通按钮（Button）、位图按钮（BitBtn）和快捷按钮（SpeedButton）。普通按钮：使用最多的是淡季时间OnCli

╰半橙微兮°/ 2022年04月16日 06:26/ 0 赞/ 460 阅读

相关 Delphi DbGrid上色问题

DbGrid的OnDrawColumnCell事件如你现在有一个ADOTable1,一个DbGrid1,假如你数据库里面的列名分别是(序号,名字,年龄),你要将年龄为23

Bertha 。/ 2021年11月29日 11:30/ 0 赞/ 231 阅读

相关在delphi的dbgrid中插入其他可视组件_delphi教程

Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程式设计。不过如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是个简单的文本编辑框，不方便用户

逃离我推掉我的手/ 2021年11月29日 11:26/ 0 赞/ 238 阅读

相关 Delphi入门教程

![1576348-20190807191448024-754354675.jpg][] ![1576348-20190807191459356-1621501691.jpg

我不是女神ヾ/ 2021年07月25日 20:29/ 0 赞/ 505 阅读

相关 Delphi入门教程

一、第一章Delphi6介绍 1.1概述 Delphi是基于Pascal语言的RAD快速应用程序开发工具(Rapid Application Development),为W

电玩女神/ 2021年07月25日 20:00/ 0 赞/ 536 阅读