*在表单的INT中
BINDEVENT(thisFORM.TEXT2,"rightclick",thisFORM.TEXT1,"RIGHTclick") && ，将TEXT1的RIGHTCLICK绑定到TEXT2的RIGHTCLICK
THISFORM.TEXT1.VALUE='ABCD'
THISFORM.TEXT2.VALUE='EFGH'


文本框1的 RIGHTCLICK 事件如下：
f=this.name
_cliptext=thisform.&F.value
=messagebox(_cliptext)


文本框TEXT2的 选定EFGH后按右键RIGHTCLICK
此时_cliptext返回的只能返回 ‘thSform.text2.value’ 字符，不能返回EFGH

问： 要如何才能 ： TEXT2绑定TEXT1后，在text2右键 ,返回所选的 字符？

试试看：
f="thisform."+f+".text"
_cliptext=&f

[此贴子已经被作者于2019-8-16 08:23编辑过]

不行。

&& 以下是TEXT1的RIGHTCLICK事件

f=this.name
_cliptext=thisform.&F..value
=messagebox(_cliptext)
然后在TEXT2里按右键，只能得到TEXT1的内容，并不能得到 TEXT2的内容。 这样的绑定就 没有意义

*** test.prg ***
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 AS Form
    ADD OBJECT Text1 AS TextBox WITH top=10,left=10
    ADD OBJECT Text2 AS TextBox WITH top=40,left=10
    ADD OBJECT Edit1 AS EditBox WITH top=70,left=10
    PROCEDURE Init
        FOR EACH obj IN this.Objects
            IF PROPER(obj.BaseClass) == "Textbox"
                BINDEVENT(obj, "RightClick", this, "_RightClick")
            ENDIF
        ENDFOR
    ENDPROC
    PROCEDURE _RightClick
        IF (AEVENTS(aObj,0) > 0)
            IF (PROPER(aObj[1].BaseClass) == "Textbox")
                _ClipText = aObj[1].Value
                this.Edit1.seltext = _ClipText
            ENDIF
        ENDIF
    ENDPROC
ENDDEFINE

学习了