關鍵是定義菜單時要有下面一句 ... SKIP FOR showwhat1
DEFINE BAR 1 OF shortcut PROMPT "加到我的最愛(\<A)..." SKIP FOR showwhat1
然后對變量showwhat1賦不同的值就可以了
form1.init()
public showwhat1,showwhat2
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "加到我的最愛(\<A)..." SKIP FOR showwhat1
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "從我的最愛中移除(\<D)..." SKIP FOR showwhat2
ON SELECTION BAR 1 OF shortcut messagebox('1')
ON SELECTION BAR 3 OF shortcut messagebox('3')
*ACTIVATE POPUP shortcut
form1.rightclick()
showwhat1=.f.
showwhat2=.t.
ACTIVATE POPUP shortcut at MROW(),MCOL()