这个非常简单啊，列表框被形状盖住后改变下前景背景啥的，就可以让他看起来跟Enabled=.f.时一模一样了。

[此贴子已经被作者于2022-12-2 19:07编辑过]

本来的 Enabled=.f. 时也有选项框看到，只是灰色

为什么非得失效，是实现什么。

同问

不清楚为什么几位会质疑这种用法，我解释一下，如果有更好的办法，请各位指导。
1、如图点击左边列表框后，表格显示所点击房屋具有的单据。
2、点击右下添加，就表示给该房屋添加新单据，此时处于编辑新单据状态。
3、编辑完成后点击右下的勾勾确定，则该单据入库；点击叉叉取消，则该单据不入库。
4、在确定该新单据是保存还是取消前，要求的是列表框不可选，并且突出显示当前是哪个房屋。
问题就在这里，让列表框的Enabled=.F.，则列表框“一片灰”，用户很难知道当前是给哪个房屋（或哪个人）添加新单据；
而8楼用透明形状盖住列表框的方法，则完美实现这个要求，图中所示就是列表框不可选，而且突出显示当前是给“崇邑村101号 唐仲”开新单据。

学过 vfp 的应该都知道，不想让列表框得到焦点的方法有两种：
1. When 事件里返回 .f.
2. GotFocus 事件里加 NoDefault

加图片掩盖的方式，看似解决了问题，无法阻止用户用 tab 键将焦点切换到列表框

[此贴子已经被作者于2022-12-3 21:42编辑过]

谢谢提醒，我琢磨一下。

listbox本身也可以做出不错的感觉

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

DEFINE CLASS form1 as Form
    ADD OBJECT cmd as commandbutton WITH left=10,top=10,height=24,caption="Enabled=.F."
    ADD OBJECT lst as list1
    PROCEDURE cmd.click
        this.Caption = "Enabled="+TRANSFORM(thisform.lst.Enabled)
        thisform.lst.Enabled = !thisform.lst.Enabled
    ENDPROC 
ENDDEFINE

DEFINE CLASS list1 as ListBox
    left=10
    top=40
    width=200
    MultiSelect=1
    Picture="d:\temp\test_0.png"
    index = 0
    PROCEDURE init
        FOR i=1 TO 9
            this.AddItem(REPLICATE(TRANSFORM(i),10))
        ENDFOR 
        this.ListIndex = 1
        this.InteractiveChange
    ENDPROC 
    PROCEDURE InteractiveChange
        this.Picture(this.index) = "d:\temp\test_0.png"
        this.index = this.ListIndex
        this.Picture(this.ListIndex) = "d:\temp\test_1.png"
    ENDPROC
ENDDEFINE

16楼的方法1即可完美解决


把list1.tag当作开关

[此贴子已经被作者于2022-12-4 10:35编辑过]

版主真高，虽然复杂，但很漂亮，留存以备后用，谢谢。