gdrclick.prg

来自「田径运动会管理系统RAR 用VFP编写」· PRG 代码 · 共 29 行

*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 快捷菜单