请教：最小化还原

[CCJJGLXT]

请教：在表单上自己做了一个最小化按钮用--WindowsState=1，很好，表单停在了下面。但是，要想让表单再还原，怎么点它也不还原了（在这个表单上设了：双击和获得焦点----WindowsState=0都不行）。怎么搞呢？

[十豆三]

最小化后，右单击最小化的部分，有还原和最大化吧。

[CCJJGLXT]

左右键都没有反应

[lc_apple]

楼主说的命令按扭WindowsState=1可以最小化表单，我咋不能成功呢！

[lc_apple]

噢，那了，如果把表单的minbutton设置成.f. 则修改WindowsState不起作用了，麻烦

[CCJJGLXT]

我这是一个领导审批模块，系统登陆后，进入托盘。自动检测有无需要审批单据，如果有待审单据出现，自动弹出审核窗口，弹出审核窗口后自动停止侦测。为使界面清洁些设了_VFP.VISIBLE=.F.，审核窗口设为“作为顶层表单”。为使领导不做“×”操作，设了ControlBox=.f.，自已做了一个“最小化”替代按钮，领导不想审批时，可先最小化，但不关闭（关闭了系统会接着侦测）。
但在这种设置情况下，“最小化”窗口后，表单不能再还原了。

[十豆三]

[Quote=引用 5 楼 ccjjglxt 的回复:]
我这是一个领导审批模块，系统登陆后，进入托盘。自动检测有无需要审批单据，如果有待审单据出现，自动弹出审核窗口，弹出审核窗口后自动停止侦测。为使界面清洁些设了_VFP.VISIBLE=.F.，审核窗口设为“作为顶层表单”。为使领导不做“×”操作，设了ControlBox=.f.，自已做了一个“最小化”替代按钮，领导不想审批时，可先最小化，但不关闭（关闭了系统会接着侦测）。
但在这种设置情况下，“最小化”窗口后，表单不能再还原了。

[/Quote]

最小化双击标题栏是可以还原的，但表单的 MinButton 属性必须 .T.

[十豆三]

在表单的 Resize 事件中写代码：

If Thisform.WindowState=1
Thisform.ControlBox=.T.
Thisform.MinButton=.T.
Thisform.MaxButton=.T.
Else
Thisform.ControlBox=.F.
Thisform.MinButton=.F.
Thisform.MaxButton=.F.
Endif