如何建立一个带有菜单的顶层表单?

(原题:关于菜单设计)
如何把设计好的菜单放到窗体中啊?
---------------------------------------------------------------

1、建一个顶层表单作为主表单,在此表单的Init事件中:do 菜单名.mpr with this,.t.(此表单即为菜单所在的表单)
2、建一个菜单,要把菜单的<常规选项>中<顶层表单>和<替换>选中。操作如下:
打开你的菜单,点击VFP菜单的“显示”(View)->“常规选项”(General Options)->选中“顶层表单”(Top-Level Form),位置(Location)设置成“替换”(Replace)
击VFP菜单中的“菜单”(Menu)->“生成”(Generate)->出现窗口后,点击“生成”(Generate)。

3、其它子表单的ShowWindow为“在顶层表单中”,并且WindowsType的值为1(即模式表单)。

4、建一个程序(prg)为项目的主文件。在这个程序中调用一个主表单,Prg的内容参考如下:
CLOSE DATA
_screen.visible=.f.
set date to YMD
SET CENTURY ON
SET HOURS TO 24
set safe off
set talk off
set sysmenu to
set exclusive on
set event on
...........
do form 表单A &&表单A为你的主表单名
Read Events
...........

5、这样当执行程序时,菜单和主表单为活动的,当执行一个子表单时,菜单为不可选,即不活动。
(VFP6不能通过此方法来让菜单为不活动,VFP6可以设置菜单中“跳过”再结合变量即可实现)

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus