您所在位置：主题：如何使菜单生成在顶层界面上?
powerprefectsoftwate
[专家分：180] 发布于 2009-05-31 13:54:00
*******下面代码保存在program1.prg****
DEFINE PAD 运行 OF _MSYSMENU PROMPT "运行(\<R)" COLOR SCHEME 1 KEY ALT+R, ""
ON PAD 运行 OF _MSYSMENU ACTIVATE POPUP 运行R
DEFINE POPUP 运行R MARGIN RELATIVE SHADOW COLOR SCHEME 2
DEFINE BAR 1 OF 运行R PROMPT "运行表单1(\<A)"
DEFINE BAR 2 OF 运行R PROMPT "运行表单2(\<B)"
Define Bar 3 of 运行R prompt '运行表单3(\<C)'
Define Bar 4 of 运行R prompt '运行表单4(\<D)'
******************************************
在顶层表单运行:
form1.init
do program1.prg
结果生成的菜单在系统菜单上,请教如何使菜单生成在顶层表单上呢?
DEFINE PAD 运行 OF _MSYSMENU PROMPT "运行(\<R)" COLOR SCHEME 1 KEY ALT+R, ""
ON PAD 运行 OF _MSYSMENU ACTIVATE POPUP 运行R
DEFINE POPUP 运行R MARGIN RELATIVE SHADOW COLOR SCHEME 2
DEFINE BAR 1 OF 运行R PROMPT "运行表单1(\<A)"
DEFINE BAR 2 OF 运行R PROMPT "运行表单2(\<B)"
Define Bar 3 of 运行R prompt '运行表单3(\<C)'
Define Bar 4 of 运行R prompt '运行表单4(\<D)'
******************************************
在顶层表单运行:
form1.init
do program1.prg
结果生成的菜单在系统菜单上,请教如何使菜单生成在顶层表单上呢?
