在DBGrid中实现Copy、Paste功能_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在DBGrid中实现Copy、Paste功能

作者：闵涛文章来源：闵涛的学习笔记点击数：785 更新时间：2009/4/23 18:24:13

　　Copy和Paste加速按钮，对于使用Windows下编辑器的人来说，恐怕都是非常熟悉而且不可缺少的。Delphi中的有些控件，如:TDBEdit、TDBImage、TDBMemo、TEdit等，具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法，在这些控件上，利用这几个方法，只要通过简单的编程，就可以实现上述加速按钮。但TDBGrid控件却不提供上述方法，无法直接实现这几种功能。而在单机的数据库应用程序中，TDBGrid却经常被用来进行数据(包括数字和文字)的输入，没有Copy和Paste功能，使用起来深感不便。笔者在编程过程中，利用中间控件进行“过渡”，间接地实现了这几种功能。

　　主要思路:既然TDBGrid控件无法直接实现Copy和Paste编辑功能，则可以将TDBGrid控件中需要进行这几种编辑的字段(Field)的内容，转移到具备这几种功能的控件(以TDBEdit为例)中去，编辑完毕后，再传回到TDBGrid中。

　　具体方法:在已设计好的包含有TDBGrid控件(设名为DBGrid1)的窗体中，增加一个TDBEdit(设名为DBEdit1)控件，其DataSources属性设为与DBGrid1的DataSources属性相同，对DBGrid1控件的OnColEnter事件编程，使DBEdit1的DataField属性值等于DBGrid1控件的被选择字段的字段名。再在窗体中增加两个快速按钮:Copy和Paste，图形可选Delphi子目录下ImagesιButtons子目录里的Copy.bmp和Paste.bmp。对Copy快速按钮的OnClick事件编程:
　　DBEdit1.CopyToClipboard;

　　对Paste快速按钮的OnClick事件编程:
　　DBEdit1.PasteFromClipboard;
　　DBGrid1.SelectedField.AsString:=DBEdit1.Text;

　　此时，如果DBGrid1中的某一单元Cell数字需要粘贴另一单元Cell2的部分或全部内容，用鼠标单击选择Cell2，此时DBEdit1所显示的内容与Cell2的内容相同。在DBEdit1中用鼠标拖曳选择部分或全部内容，单击Copy快速按钮;再用鼠标单击选择Cell，此时DBEdit1所显示的内容与Cell相同，在DBEdit中欲粘贴刚才所选内容的位置插入光标，单击Paste快速按钮，则刚才所选内容插入到光标位置，Cell的内容也随之改变成插入后的内容，由此完成了一次Copy—Paste操作。

　　用这种方法实现Copy—Paste操作，比正常的操作多了一次鼠标的键击、两次鼠标的移动。在重复输入的内容不多，且操作者键盘输入很快很熟练的情况下，这种实现Copy—Paste的方法，意义似乎不大。但如果应用程序的使用者是那些并没有掌握某种快淖质淙爰记伞⒑苡锌赡芑乖谑褂闷匆羰淙敕ǖ娜耍绻褂谜叨哉５腃opy—Paste方法本来就不熟练(则感觉不到这种方法的不合常规)，且又非常地善于在一长串的同音字里翻来翻去地寻找的话，这还是一种不错的方法。如果哪位读者有能在TDBGrid中实现常规Copy—Paste操作的方法，请不吝赐教。

　　以下是有关的程序代码:
　　procedure TUnitDetail.DBGrid1ColEnter(Sender:TObject);
　　begin
　　case DBGrid1.SelectedIndex of
　　0:DBEdit1.DataField:=Unit？Num;
　 1:DBEdit1.DataField:=UnitName;
　　2:DBEdit1.DataField:=Header;
　　3:DBEdit1.DataField:=Address;
　　4:DBEdit1.DataField:=Tel;
　　end;
　　end;

　　
　　procedure TUnitDetail.SBCopyClick(Sender:TObject);
　　begin
　　DBEdit1.CopyToClipboard;
　　end;

　　procedureTUnitDetail.SBPasteClick(Sender:TObject);
　　begin
　　DBEdit1.PasteFromClipboard;
　　DBGrid1.SelectedField.AsString:=DBEdit1.text;
　　end;

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：用Delphi编程访问SQLServer数据库

下一篇教程： Delphi编程实现3DS动画的播放

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……