基本内容

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 命令则用于创建菜单中的菜单项。

activatepopup命令示例

这个示例在选择一个菜单标题后，用 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