表单是否有disp事件？？？（我新手找书学的）

[L_xunmi]

是否有表单的Disp事件，没有的话问下设置页框page选项卡各按钮的显示状态和可用状态怎么设置，是控件还是代码，知道的请帮帮忙………………谢谢

[ACMAIN_CHM]

Activate 事件试试

[xy111222333]

似乎是没有。

[L_xunmi]

给解释下下面的代码是否正确，还有做什么用的？
表单Init事件添加代码如下：
thisform.disp
thisform.setall('enabled',.f.,'textbox')
在其Disp事件中添加如下代码：
thisform.setall('enabled',.f.,'textbox')
thisform.pageframe1.page1.commandgroup1.command9.enabled=.t.
thisform.pageframe1.page1.commandgroup1command1.enabled=.t.
thisform.pageframe1.page1.commandgroup1command2.enabled=.t.
thisform.pageframe1.page1.commandgroup1command3.enabled=.t.
thisform.pageframe1.page1.commandgroup1command4.enabled=.t.
thisform.pageframe1.page1.commandgroup1command5.enabled=.t.
thisform.pageframe1.page1.commandgroup1command6.enabled=.t.
thisform.pageframe1.page1.commandgroup1command7.enabled=.t.
thisform.pageframe1.page1.commandgroup1command8.enabled=.t.
thisform.pageframe1.page1.lable1.visible=.f.
if deleted()=.t.
thisform.pageframe1.page1.label.visible=.t.
thisform.pageframe1.page1.commandgroup1command3.enabled=.f.
thisform.pageframe1.page1.commandgroup1command7.enabled=.f.
thisform.pageframe1.page1.commandgroup1command8.enabled=.f.
else
thisform.pageframe1.page1.lable1.visible=.f.
thisform.pageframe1.page1.commandgroup1command3.enabled=.t.
thisform.pageframe1.page1.commandgroup1command7.enabled=.t.
thisform.pageframe1.page1.commandgroup1command8.enabled=.f.
endif
还有几个按钮的代码是否正确，这是做的个数据维护界面的：“第一个”按钮click代码如下：go top
thisform.refresh
thisform.disp
MOUSEMove事件代码：this.mousepointer=99
this.mouseico="point.cur"
“修改”Click代码：thisform.setall('enabled',.t.,'textbox')
thisform.pageframe1.page2.grdXS.setfocus
知道的话请告诉下，谢谢了！有学生数据维护页面代码请贴参考下也可以……

[十豆三]

Disp 是什么？

问题2：

Thisform.页框控件名.页框内控件名.Enabled=.F.

[L_xunmi]

下面的代码做什么的啊？是否有其他替代 代码知道的请告诉下。或者帮忙发个数据维护页框的事件和代码。

在表单的init事件中添加如下代码：
thisform.disp
thisform.setall('enabled',.f.,'textbox')
在其disp事件中添加如下代码：
thisform.setall('enabled',.f.,'textbox')
thisform.pageframe1.page1.commandgroup1.command9.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command1.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command2.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command3.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command4.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command5.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command6.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command7.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command8.enabled=.t.
thisform.pageframe1.page1.label1.visible=.f.
if deleted()=.t.
thisform.pageframe1.page1.label.visible=.t.
thisform.pageframe1.page1.commandgroup1.command3.enabled=.f.
thisform.pageframe1.page1.commandgroup1.command7.enabled=.f.
thisform.pageframe1.page1.commandgroup1.command8.enabled=.t.
else
thisform.pageframe1.page1.label1.visible=.f.
thisform.pageframe1.page1.commandgroup1.command3.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command7.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command8.enabled=.t.
endif
上面的代码是设置page1选项卡各按钮的显示状态和可用状态。是否正确啊？？
“第一个”按钮 click代码：
go top
thisform.refresh
thisform.disp()
其MouseMove事件代码：this.mousepointer=99
this.mouseicon="point.cur"
”最后一个“按钮click代码：go bottom
thisform.refresh
thisform.disp()
”新增“按钮click代码： append blank
thisform.disp()
thisform.setall('enabled',.t.,'rextbox')
thisform.refresh
thisform.pageframe1.page2.grdxs.setfocus

能看明白的告诉下，DISP什么东东啊？？？

[xy111222333]

DISP什么东东啊？？？
呵呵，没见过这个用法。DISP（）是函数还是属性？属性就不能带什么参数了，函数就没有这么用的，你要实现什么功能？

[xy111222333]

thisform.pageframe1.page1.commandgroup1.command9.enabled=.t.
这句代码似乎不用那么复杂，直接写：
thisform.commandgroup1.command9.enabled=.t.
以下语句同理。

[xy111222333]

在表单的init事件中添加如下代码：
thisform.disp
thisform.setall('enabled',.f.,'textbox')
在其disp事件中添加如下代码：
thisform.setall('enabled',.f.,'textbox')

没听说表单的disp事件，有什么作用？

[xy111222333]

在其disp事件中添加如下代码：
thisform.setall('enabled',.f.,'textbox')
thisform.commandgroup1.command9.enabled=.t.
thisform.commandgroup1.command1.enabled=.t.
……
这些代码都可以写进表单的init事件中

[WWWWA]

DISP是自定义方法
thisform.setall('enabled',.f.,'textbox')
将表单中的textbox的enabled属性设为FALSE
thisform.pageframe1.page1.commandgroup1.command1-8设置
enabled属性设为TRUE

[wwwwb]

DISP是自定义方法，在你的disp事件中有代码
thisform.setall('enabled',.f.,'textbox')
将表单中的textbox的enabled属性设为FALSE
thisform.pageframe1.page1.commandgroup1.command1-8设置
enabled属性设为TRUE

thisform.pageframe1.page1.label1.visible=.f.
将PAGE1中的LABEL设为不可见

if deleted()=.t.
打开表中判断当前记录是否为删除
thisform.pageframe1.page1.label.visible=.t.
thisform.pageframe1.page1.commandgroup1.command3.enabled=.f.
thisform.pageframe1.page1.commandgroup1.command7.enabled=.f.
thisform.pageframe1.page1.commandgroup1.command8.enabled=.t.
如果是，执行上述命令
else
否则执行下述命令，不用解释吧
thisform.pageframe1.page1.label1.visible=.f.
thisform.pageframe1.page1.commandgroup1.command3.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command7.enabled=.t.
thisform.pageframe1.page1.commandgroup1.command8.enabled=.t.
endif

[十豆三]

DISP是表单自定义方法，也就是设计表单时添加的表单方法，不是表单原方法。

[十豆三]

后面代码的作用 这些在VFP自带帮助中都可以查到

[WWWWA]

具体什么地方不明白，再问