activate popup 命令

activate popup 命令【activate popup 命令】activate popup 命令，属于科技术语，指定要激活的选单的名称。
基本介绍中文名：激活选单命令
外文名：activate popup
简介activate popup 命令显示并且激活一个选单。语法ACTIVATE POPUP MenuName[AT nRow, nColumn][BAR nMenuItemNumber][NOWAIT][REST]参数AT nRow, nColumn指定选单在萤幕或用户自定义视窗中显示的位置，行和列的坐标值为选单左上角的坐标值。用此参数确定的位置优先于 DEFINE POPUP 命令的 FROM 参数指定的位置。BAR nMenuItemNumber指定选单激活后自动选定的选单项。例如，如果 nMenuItemNumber 为 2，则选单激活后将自动选择第二个选单项。如果省略参数 BAR nMenuItemNumber，或者 nMenuItemNumber 的数值大于选单中的项数，则选单激活后将选择第一个选单项。NOWAIT指定程式运行时不等待用户选择选单项，而是继续执行程式。REST如果 DEFINE POPUP 命令中带有 PROMPT FIELD 子句，则它所创建选单的各项就是每个记录指定栏位的内容。此选单激活时，既使包含此栏位的表的记录指针没有指向第一个记录，初始时还是选定第一个选单项。包含 REST 选项，则指定此选单激活时选定与表中当前记录指针相对应的项。说明ACTIVATE POPUP 与 DEFINE POPUP 命令结合使用，用于创建选单，而 DEFINE BAR 命令则用于创建选单中的选单项。命令示例这个示例在选择一个选单标题后，用 activate popup 命令激活选单。当前系统选单栏先用 set sysmenu save 命令存入记忆体，然后用 set sysmenu to 命令删除所有系统选单标题。用 define pad 命令创建两个新的系统选单标题，并且用 define popup 命令为每一个选单标题创建一个选单，再用 define bar 命令为每个选单创建建选单项。当选择一个选单标题后，on pad 命令通过 activate popup 子句激活相应的选单。从选单中选择某个选单项后，将执行 choice 过程。choice 过程将显示选定的选单项名和对应选单名。如果从 card info 选单中选择 exit 选单项，将恢复为原来的 visual foxpro 系统选单。*** 此程式名为 actipop.prg ***clearset sysmenu saveset sysmenu todefine pad convpad of _msysmenu prompt '\<conversions' color scheme 3 ; key alt+c, ''define pad cardpad of _msysmenu prompt 'card \<info' color scheme 3 ; key alt+i, ''on pad convpad of _msysmenu activate popup conversionon pad cardpad of _msysmenu activate popup cardinfodefine popup conversion margin relative color scheme 4define bar 1 of conversion prompt 'ar\<ea' key ctrl+e, '^e'define bar 2 of conversion prompt '\<length' ; key ctrl+l, '^l'define bar 3 of conversion prompt 'ma\<ss' ; key ctrl+s, '^s'define bar 4 of conversion prompt 'spee\<d' ; key ctrl+d, '^d'define bar 5 of conversion prompt '\<temperature' ; key ctrl+t, '^t'define bar 6 of conversion prompt 't\<ime' ; key ctrl+i, '^i'define bar 7 of conversion prompt 'volu\<me' ; key ctrl+m, '^m'on selection popup conversion; do choice in actipop with prompt(), popup()define popup cardinfo margin relative color scheme 4define bar 1 of cardinfo prompt '\<view charges' ; key alt+v, ''define bar 2 of cardinfo prompt 'view \<payments' ; key alt+p, ''define bar 3 of cardinfo prompt 'vie\<w users' ; key alt+w, ''define bar 4 of cardinfo prompt '\-'define bar 5 of cardinfo prompt '\<charges' ; key alt+c, ''define bar 6 of cardinfo prompt '\-'define bar 7 of cardinfo prompt 'e\<xit'; key alt+x, ''on selection popup cardinfo;do choice in actipop with prompt(),popup()procedure choiceparameters mprompt, mpopupwait window 'you chose ' + mprompt + ; ' from popup ' + mpopup nowaitif mprompt = 'exit' set sysmenu to defaultendif