求助：复制、粘贴（文字的复制粘贴）的代码。

[此贴子已经被作者于2021-3-12 20:18编辑过]

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

比如快捷键Ctrl+V的功能

KEYBOARD 命令

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中。

文本可用_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

收到的鲜花

• jjwcj0 于 2021-03-18 21:41 送鲜花  1朵  
• wangguowu 于 2021-04-03 17:20 送鲜花  1朵