📄 010.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--控件应用-->在DBGRID中实现COPY、PASTE功能</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--控件应用 在DBGRID中实现COPY、PASTE功能">
<META NAME="description" CONTENT=" - DELPHI专题--控件应用 - 在DBGRID中实现COPY、PASTE功能">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index.html">返回</a>



<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">在DBGRID中实现COPY、PASTE功能</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p class="tt2">　工具条上的Cut、Copy和Paste加速按钮，对于使用Windows下编辑器的人来说，恐怕都是非常熟悉而且不可缺少的。Delphi（1．0和2．0版）中的有些控件，如：TDBEdit、TDBImage、TDBMemo、TEdit等，具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法，在这些控件上，利用这几个方法，只要通过简单的编程，就可以实现上述加速按钮。但TDB Grid控件却不提供上述方法，无法直接实现这几种功能。而在单机的数据库应用程序中，TDBGrid却经常被用来进行数据（包括数字和文字）的输入，没有Copy和Paste功能，使用起来深感不便。笔者在编程过程中，利用中间控件进行“过渡”，间接地实现了这几种功能。<br> 
&nbsp;&nbsp;&nbsp; 主要思路：既然TDBGrid控件无法直接实现Copy和Paste编辑功能，则可以将TDBGrid控件中需要进行这几种编辑的字段（Field）的内容，转移到具备这几种功能的控件（以TDBEdit为例）中去，编辑完毕后，再传回到TDBGrid中。<br> 
&nbsp;&nbsp;&nbsp; 具体方法：在已设计好的包含有TDBGrid控件（设名为DBGrid1）的窗体中，增加一个TDBEdit（设名为DBEdit1）控件，其DataSources属性设为与DBGrid1的DataSources属性相同，对DBGrid1控件的OnColEnter事件编程，使DBEdit1的DataField属性值等于DBGrid1控件的被选择字段的字段名。再在窗体中增加两个快速按钮：Copy和Paste，图形可选Delphi子目录下ImagesιButtons子目录里的Copy．bmp和Paste．bmp。对Copy快速按钮的OnClick事件编程：<br> 
DBEdit1．CopyToClipboard；<br> 
对Paste快速按钮的OnClick事件编程：<br> 
DBEdit1．PasteFromClipboard；<br> 
DBGrid1．SelectedField．AsString：=DBEdit1．Text；<br> 
&nbsp;&nbsp;&nbsp; 此时，如果DBGrid1中的某一单元Cell数字需要粘贴另一单元Cell2的部分或全部内容，用鼠标单击选择Cell2，此时DBEdit1所显示的内容与Cell2的内容相同。在DBEdit1中用鼠标拖曳选择部分或全部内容，单击Copy快速按钮；再用鼠标单击选择Cell，此时DBEdit1所显示的内容与Cell相同，在DBEdit中欲粘贴刚才所选内容的位置插入光标，单击Paste快速按钮，则刚才所选内容插入到光标位置，Cell的内容也随之改变成插入后的内容，由此完成了一次Copy—Paste操作。<br> 
&nbsp;&nbsp;&nbsp; 用这种方法实现Copy—Paste操作，比正常的操作多了一次鼠标的键击、两次鼠标的移动。在重复输入的内容不多，且操作者键盘输入很快很熟练的情况下，这种实现Copy—Paste的方法，意义似乎不大。但如果应用程序的使用者是那些并没有掌握某种快速文字输入技巧、很有可能还在使用拼音输入法的人，如果使用者对正常的Copy—Paste方法本来就不熟练（则感觉不到这种方法的不合常规），且又非常地善于在一长串的同音字里翻来翻去地寻找的话，这还是一种不错的方法。如果哪位读者有能在TDBGrid中实现常规Copy—Paste操作的方法，请不吝赐教。<br> 
<br> 
以下是有关的程序代码：<br> 
procedureTUnitDetail．DBGrid1ColEnter（Sender：TObject）；<br> 
begin<br> 
caseDBGrid1．SelectedIndexof<br> 
0：DBEdit1．DataField：=′UnitNum′；<br> 
1：DBEdit1．DataField：=′UnitName′；<br> 
2：DBEdit1．DataField：=′Header′；<br> 
3：DBEdit1．DataField：=′Address′；<br> 
4：DBEdit1．DataField：=′Tel′；<br> 
end；<br> 
end；<br> 
<br> 
procedureTUnitDetail．SBCopyClick（Sender：TObject）；<br> 
begin<br> 
DBEdit1．CopyToClipboard；<br> 
end；<br> 
<br> 
procedureTUnitDetail．SBPasteClick（Sender：TObject）；<br> 
begin<br> 
DBEdit1．PasteFromClipboard；<br> 
DBGrid1．SelectedField．AsString：=DBEdit1．text；<br> 
end；</p> 
<hr color="#EE9B73" size="1" width="94%"> 
 
</TD> 
 
</TR> 
</table> 
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -