工具條上的Cut、Copy和Paste加速按鈕，對(duì)于使用Windows下編輯器的人來(lái)說(shuō)，恐怕都是非常熟悉而且不可缺少的。Delphi中的有些控件，如:TDBEdit、TDBImage、TDBMemo、TEdit等，具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法，在這些控件上，利用這幾個(gè)方法，只要通過(guò)簡(jiǎn)單的編程，就可以實(shí)現(xiàn)上述加速按鈕。但TDBGrid控件卻不提供上述方法，無(wú)法直接實(shí)現(xiàn)這幾種功能。而在單機(jī)的數(shù)據(jù)庫(kù)應(yīng)用程序中，TDBGrid卻經(jīng)常被用來(lái)進(jìn)行數(shù)據(jù)(包括數(shù)字和文字)的輸入，沒(méi)有Copy和Paste功能，使用起來(lái)深感不便。筆者在編程過(guò)程中，利用中間控件進(jìn)行“過(guò)渡”，間接地實(shí)現(xiàn)了這幾種功能。

　　主要思路:既然TDBGrid控件無(wú)法直接實(shí)現(xiàn)Copy和Paste編輯功能，則可以將TDBGrid控件中需要進(jìn)行這幾種編輯的字段(Field)的內(nèi)容，轉(zhuǎn)移到具備這幾種功能的控件(以TDBEdit為例)中去，編輯完畢后，再傳回到TDBGrid中。

　　具體方法:在已設(shè)計(jì)好的包含有TDBGrid控件(設(shè)名為DBGrid1)的窗體中，增加一個(gè)TDBEdit(設(shè)名為DBEdit1)控件，其DataSources屬性設(shè)為與DBGrid1的DataSources屬性相同，對(duì)DBGrid1控件的OnColEnter事件編程，使DBEdit1的DataField屬性值等于DBGrid1控件的被選擇字段的字段名。再在窗體中增加兩個(gè)快速按鈕:Copy和Paste，圖形可選Delphi子目錄下ImagesιButtons子目錄里的Copy.bmp和Paste.bmp。對(duì)Copy快速按鈕的OnClick事件編程:
　　DBEdit1.CopyToClipboard;

　　對(duì)Paste快速按鈕的OnClick事件編程:
　　DBEdit1.PasteFromClipboard;
　　DBGrid1.SelectedField.AsString:=DBEdit1.Text;

　　此時(shí)，如果DBGrid1中的某一單元Cell數(shù)字需要粘貼另一單元Cell2的部分或全部?jī)?nèi)容，用鼠標(biāo)單擊選擇Cell2，此時(shí)DBEdit1所顯示的內(nèi)容與Cell2的內(nèi)容相同。在DBEdit1中用鼠標(biāo)拖曳選擇部分或全部?jī)?nèi)容，單擊Copy快速按鈕;再用鼠標(biāo)單擊選擇Cell，此時(shí)DBEdit1所顯示的內(nèi)容與Cell相同，在DBEdit中欲粘貼剛才所選內(nèi)容的位置插入光標(biāo)，單擊Paste快速按鈕，則剛才所選內(nèi)容插入到光標(biāo)位置，Cell的內(nèi)容也隨之改變成插入后的內(nèi)容，由此完成了一次Copy—Paste操作。

　　用這種方法實(shí)現(xiàn)Copy—Paste操作，比正常的操作多了一次鼠標(biāo)的鍵擊、兩次鼠標(biāo)的移動(dòng)。在重復(fù)輸入的內(nèi)容不多，且操作者鍵盤(pán)輸入很快很熟練的情況下，這種實(shí)現(xiàn)Copy—Paste的方法，意義似乎不大。但如果應(yīng)用程序的使用者是那些并沒(méi)有掌握某種快速文字輸入技巧、很有可能還在使用拼音輸入法的人，如果使用者對(duì)正常的Copy—Paste方法本來(lái)就不熟練(則感覺(jué)不到這種方法的不合常規(guī))，且又非常地善于在一長(zhǎng)串的同音字里翻來(lái)翻去地尋找的話，這還是一種不錯(cuò)的方法。如果哪位讀者有能在TDBGrid中實(shí)現(xiàn)常規(guī)Copy—Paste操作的方法，請(qǐng)不吝賜教。

　　以下是有關(guān)的程序代碼:
　　procedure TUnitDetail.DBGrid1ColEnter(Sender:TObject);
　　begin
　　　case DBGrid1.SelectedIndex of
　 　　0:DBEdit1.DataField:='Unit�睳um';
　　 　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;