编程论坛 → VFP论坛

关于如何获取对象名称的问题

fanjinyu9108 发布于 2020-11-11 08:38， 1995 次点击

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

建立一个表单，一个表格控件，表单的ININT加入如下代码：
CREATE CURSOR t(yy c(2),tt c(3))
thisform.grid1.RecordSource="t"
BINDEVENT(thisform.grid1.column1.header1,"dblclick",thisform,"bind")
BINDEVENT(thisform.grid1.column2.header1,"dblclick",thisform,"bind")

我需要的效果是，如何编写BIND过程的程序，当我双击grid1.column1.header1，获取grid1.column1的名称（name），当我双击grid1.column2.header1，获取grid1.column2的名称（name），
也就说我要知道是在哪一列双击的。恳请师傅们予以解答。

5 回复

#2

吹水佬2020-11-11 11:01

试试在自定义的bind方法中：

IF (AEVENTS(aHeader, 0) > 0)
    IF (VARTYPE(aHeader[1])=="O") AND (PROPER(aHeader[1].BaseClass)=="Header")
        MESSAGEBOX(aHeader[1].Parent.Name)
    ENDIF
ENDIF

#3

fanjinyu91082020-11-11 12:04

非常感谢吹水佬师傅的解答，问题完美解决，但是又有一个问题来了，就是如何使被遮住的容器类里面的控件LIST1在表单中完全显示，试了半天弄不好

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

#4

吹水佬2020-11-11 19:10

回复 3楼 fanjinyu9108

容器容不下，容器整大点或里面的东西整小点

#5

fanjinyu91082020-11-11 21:38

好吧，谢谢吹水佬师傅，主要是控件较多，调整位置比较麻烦，装在容器里面调整方便些，不行的话，我把控件从容器拿出来直接放在表单里算了。

#6

achaoboy2020-11-12 21:50

值得参考！

1