gdrclick.bak

田径运动会管理系统RAR 用VFP编写

*rclick.prg
LPARAMETERS m1,m2,m3,m4,m5 && .....

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
if type('m1')="C"
 DEFINE BAR 1 OF 快捷菜单 PROMPT m1
 ON SELECTION BAR 1 OF 快捷菜单 return m1
endif
if type('m2')="C"
 DEFINE BAR 2 OF 快捷菜单 PROMPT m2
 ON SELECTION BAR 2 OF 快捷菜单 return m2
endif
if type('m3')="C"
 DEFINE BAR 3 OF 快捷菜单 PROMPT m3
 ON SELECTION BAR 3 OF 快捷菜单 return m3
endif
if type('m4')="C"
 DEFINE BAR 4 OF 快捷菜单 PROMPT m4
 ON SELECTION BAR 4 OF 快捷菜单 return m4
endif
if type('m5')="C"
 DEFINE BAR 5 OF 快捷菜单 PROMPT m5
 ON SELECTION BAR 5 OF 快捷菜单 return m5
endif

*.........
ACTIVATE POPUP 快捷菜单