绑定事件都没问题，但绑定属性没有成功过：
Bindevent(This,[ControlSource],this.EditAtt,[ControlSource])
指南：可以使用 BINDEVENT( ) 从 Visual FoxPro 本身对象到其它 Visual FoxPro 对象来绑定事件、属性或方法。BINDEVENT(oEventSource, cEvent, oEventHandler, cDelegate [, nFlags])

[此贴子已经被作者于2026-4-24 11:52编辑过]

没试过绑定属性，印象里只能绑定方法，消息

BINDEVENT() 中绑定一个属性时，是绑定这个属性的 Assign 方法

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

DEFINE CLASS form1 as Form
    AutoCenter  = 1
    my_property = 0
    ADD OBJECT command1 as commandbutton WITH left=10,top=10,height=22
    PROCEDURE init
        BINDEVENT(this, "my_property", this, "my_property_event")  
    ENDPROC 
    PROCEDURE command1.click
        thisform.my_property = 1
    ENDPROC 
    FUNCTION my_property_event()
        MESSAGEBOX("my_property_event")
    ENDFUNC 
ENDDEFINE

原来如此。谢谢！