求助：复制、粘贴（文字的复制粘贴）的代码。 - 编程论坛

#2

吹水佬2021-03-12 20:37

说说具体的操作过程，在哪复制什么，再粘贴到哪?

#3

jjwcj02021-03-12 22:16

比如快捷键Ctrl+V的功能

#4

吹水佬2021-03-13 08:58

以下是引用jjwcj0在2021-3-12 22:16:58的发言：

比如快捷键Ctrl+V的功能

KEYBOARD 命令

#5

nbwww2021-03-14 17:51

Release med_cut,med_copy,med_clear,med_slcta
Public med_cut,med_copy,med_clear,med_slcta
med_cut=Iif(This.SelLength>0,.T.,.F.)
med_copy=Iif(This.SelLength>0,.T.,.F.)
med_clear=Iif(This.SelLength>0,.T.,.F.)
med_slcta=Iif(Len(Alltrim(This.Text))>0,.T.,.F.)
Define Popup shortcut SHORTCUT Relative From Mrow(),Mcol()
Define Bar _Med_undo Of shortcut Prompt "撒消(\<U)" ;
KEY CTRL+Z, ""
Define Bar 2 Of shortcut Prompt "\-"
Define Bar _Med_cut Of shortcut Prompt "剪切(\<T)" ;
KEY CTRL+X, "" ;
SKIP For med_cut=.F.
Define Bar _Med_copy Of shortcut Prompt "复制(\<C)" ;
KEY CTRL+C, "" ;
SKIP For med_copy=.F.
Define Bar _Med_paste Of shortcut Prompt "粘贴(\<P)" ;
KEY CTRL+V, "" &&;
* SKIP For Empty(_Cliptext)
Define Bar _Med_clear Of shortcut Prompt "删除(\<D)" ;
KEY DEL, "" ;
SKIP For med_clear=.F.
Define Bar 7 Of shortcut Prompt "\-"
Define Bar _Med_slcta Of shortcut Prompt "全选(\<A)" ;
KEY CTRL+A, "" ;
SKIP For med_slcta=.F.

Activate Popup shortcut

放到Rightclick 中

#6

jjwcj02021-03-15 15:06

以下是引用nbwww在2021-3-14 17:51:25的发言：

Release med_cut,med_copy,med_clear,med_slcta
Public med_cut,med_copy,med_clear,med_slcta
med_cut=Iif(This.SelLength>0,.T.,.F.)
med_copy=Iif(This.SelLength>0,.T.,.F.)
med_clear=Iif(This.SelLength>0,.T.,.F.)
med_slcta=Iif(Len(Alltrim(This.Text))>0,.T.,.F.)
Define Popup shortcut SHORTCUT Relative From Mrow(),Mcol()
Define Bar _Med_undo Of shortcut Prompt "撒消(\<U)" ;
KEY CTRL+Z, ""
Define Bar 2 Of shortcut Prompt "\-"
Define Bar _Med_cut Of shortcut Prompt "剪切(\<T)" ;
KEY CTRL+X, "" ;
SKIP For med_cut=.F.
Define Bar _Med_copy Of shortcut Prompt "复制(\<C)" ;
KEY CTRL+C, "" ;
SKIP For med_copy=.F.
Define Bar _Med_paste Of shortcut Prompt "粘贴(\<P)" ;
KEY CTRL+V, "" &&;
* SKIP For Empty(_Cliptext)
Define Bar _Med_clear Of shortcut Prompt "删除(\<D)" ;
KEY DEL, "" ;
SKIP For med_clear=.F.
Define Bar 7 Of shortcut Prompt "\-"
Define Bar _Med_slcta Of shortcut Prompt "全选(\<A)" ;
KEY CTRL+A, "" ;
SKIP For med_slcta=.F.

Activate Popup shortcut

放到Rightclick 中

这个右键快捷菜单是可以的，快捷菜单里就有“粘贴”的选项。
但是我使用其中的“_Med_paste”代码不行。
我的意思是别的地方的内容已经复制到粘贴板中了，使用代码可以粘贴相关内容。例如双击text控件，在dbclick中怎么写代码，双击后粘贴板的内容就到text中。

#7

吹水佬2021-03-15 18:41

文本可用_cliptext

只有本站会员才能查看附件，请登录

程序代码：

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as form
    ADD OBJECT txt1 as textbox WITH left=10,top=10
    PROCEDURE txt1.dblclick
        this.value = _cliptext
    ENDPROC
ENDDEFINE