在delphi的dbgrid中插入其他可视组件_delphi教程
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
在delphi的dbgrid中插入其他可视组件_delphi教程相关推荐
- Delphi中将DBGRID中的内容输出到WORD中
这是我很久以前写的一篇文章,现在将它贴出来! 在使用DELPHI开发过程中发现网上有很多的开发朋友询问关于将DBGRID中的内容导出到一个WORD中的方法.想想可以帮帮大家,所以就自己写了一个.希望对 ...
- FLASH CS3中的FLA形式组件制作教程
这种组件区别于SWC组件,和CS3自带的组件一样能够双击进入组件里面编辑. //应该是CS3新增加的一种组件形态,以制作一个MyButton组件为例子. 分如下几个步骤: 1.首先创建一空白的Acti ...
- 如何在Excel中插入一行
如何在Excel中插入一行 VCL组件开发及应用 http://www.delphi2007.net/DelphiVCL/html/delphi_20061221143745213.html 请问用T ...
- 在DBGrid中实现Copy、Paste功能 - DELPHI
在DBGrid中实现Copy.Paste功能 - DELPHI 工具条上的Cut.Copy和Paste加速按钮,对于使用Windows下编辑器的人来说,恐怕都是非常熟悉而且不可缺少的.Delphi中的 ...
- 在状态栏中插入类似进度条的可视控件
首先,在Form中放置一个状态条控件Status.调节Status.Panels,在其中插入3个状态条嵌板.第二个嵌板的参数Style设置成psOwnerDraw.这一点很重要,如果没有这样做,将永远 ...
- delphi RichEdit控件中插入GIF动画表情
delphi在RichEdit控件中插入GIF动画表情 在UDP即时通讯软件中实现类似于QQ的动画表情,在richEdit控件中插入gif动画表情. 发送的时候将表情转为命令,接收之后,再将命令转换为 ...
- delphi 往 excel 指定单元格中插入图片
delphi 往 excel 指定单元格中插入图片 EApp.ActiveSheet.Range['imagepath'].select; //--选定插入图片的单元格EApp.ActiveSheet ...
- DELPHI的DBGRID有两个难点
DELPHI的DBGRID有两个难点: 一,每行都是一个BUTTON,且CAPTION不同 二,每行不同行高,且由用户拖动而不同高的 这两点我用CXGRID全做到了 一, procedure TFor ...
- 请问,怎么在DBGRID中改变CELL内容
请问,怎么在DBGRID中改变CELL内容 Delphi / Windows SDK/API http://www.delphi2007.net/DelphiDB/html/delphi_200612 ...
- 往hive表中插入与导出数据方式load ,insert ,sqoop 等方式详解
往hive数据仓库的表中导入数据,可以直接insert ,也可以选择load方式.当然也可以通过第三方工具如sqoop等将数据导入到hive当初.特别注意:hive虽然不会验证用户装载的数据和表的模式 ...
最新文章
- ruby中取反的问题
- 完全卸载SQL Server 2008 R2(转)
- [Logstash-input-redis] 使用详解
- avue form提交变为不可编辑_教程42——富文本编辑器的原理(项目)
- Apollo分布式配置中心在java的简单实现
- 企业级业务系统开发实战-序言
- Spring Boot 发布 jar 包转为 war 包秘籍。
- Java Thread 总结
- 利用https实现站点的访问
- Python+matplotlib数据可视化鼠标悬停自动标注功能实现
- Oracle存储过程异常
- visual studio code安装
- YYKit 源码学习使用 1
- html在div中数字时钟,在JS+CSS中如何实现滚动数字时钟
- 小封装、高通流 TVS 管 UN1K/2K/3K Series
- MSDOS(MBR)和GPT磁盘分区表
- 基于RWEQ模型的土壤风蚀模数估算及其变化归因分析、RWEQ模型相关的SCI论文撰写技巧
- openssl版本升级
- 小米4android8.0root,小米8青春版获取root权限的教程
- OKR 年度规划实践:如何在 2022 年做好准备