粘贴VFP顶层表单技巧

粘贴VFP顶层表单技巧

来源：http://huanqiu.51.net/VFP/29.htm

　　当你将表单设置为顶层表单并独立运行于Windows下时，会发现表单中复制粘贴功能失效，这给实际工作造成极大的不便，从而使编制的软件达不到专业水准。

　　笔者认为，造成这一问题的原因是微软设计VFP时，只考虑了位于系统选单下的表单的复制和粘贴情况，即位于系统选单下的表单可使用复制及粘贴热键，而处于Windows下的表单完全脱离了系统选单的控制，因此复制及粘贴热键失效。解决的办法是可在表单的控件(本文举例为文本框)中，为KeyPress Event编写如下事件处理程序，该事件处理程序首先将选择内容复制到Windows剪贴板上，然后再将剪贴板上的内容添加到控件中。

　　KeyPress Event

　　LPARAMETERS nKeyCode，nShiftAltCtrl

　　if nkeycode=3

　　＆＆ CTRL＋C 复制

　　－cliptext=this.seltext

　　endif

　　if nkeycode=22

　　＆＆ “CTRL＋V” 粘贴

　　do case

　　case this.selstart=0

　　this.value=－cliptext＋this.value

　　case this.selstart〉=1 and this.selstart〈=len(this.value)

　　this.value=subs(this.value，1，this.selstart)＋

　　－cliptext＋subs(this.value，this.selstart＋1)

　　endcase

　　endif

　　thisform.grid1.column1.setfocus()

　　sele recetem

　　if not eof()

　　skip

　　endif

　　thisform.refresh