运行时创建对像时如何添加对像的事件过程？不要用BINDEVENT(） - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 运行时创建对像时如何添加对像的事件过程？不要用BINDEVENT(）

标题：运行时创建对像时如何添加对像的事件过程？不要用BINDEVENT(）

只看楼主

zhken

等　级：贵宾
威　望：11
帖　子：273
专家分：594
注　册：2012-9-21
结帖率：96.67%

楼主

已结贴√ 问题点数：5 回复次数：3

运行时创建对像时如何添加对像的事件过程？不要用BINDEVENT(）

thisform.grid1.Column1.AddObject("tity",   "ComboBox")
thisform.grid1.Column1.CurrentControl   =   "tity"
thisform.grid1.Column1.tity.interactivechange=      这个不用BINDEVENT(）的话，要如何写事件代码？

搜索更多相关主题的帖子: 运行　创建　事件　过程　 thisform　

2019-07-02 21:30

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 2 楼

得分:0

面象对象无解

坚守VFP最后的阵地

2019-07-02 22:21

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 3 楼

得分:5

自己封装一个ComboBox
如：
****** test.prg ******
_screen.AddObject("tity", "myComboBox")
RETURN

DEFINE CLASS myComboBox as ComboBox
    Visible = .T.
    RowSourceType = 1
    RowSource = "1,2,3,4,5"
    PROCEDURE interactivechange
        MESSAGEBOX("myComboBox.interactivechange")
    ENDPROC
ENDDEFINE