VFP 愛用者社區

[sunghsia]

DECLARE INTEGER CreatePopupMenu IN user32
DECLARE INTEGER AppendMenu IN user32 INTEGER hMenu, INTEGER uFlags, INTEGER uIDNewItem, STRING @ lpNewItem
DECLARE INTEGER TrackPopupMenu IN user32 INTEGER, INTEGER, INTEGER x, INTEGER y, INTEGER, INTEGER, STRING @
DECLARE INTEGER DestroyMenu IN user32 INTEGER hMenu
DECLARE INTEGER GetFocus IN user32

*------ 建立子選單1 ------
hPopup1 = CreatePopupMenu()
= AppendMenu (hPopup1, 0, 1, "選項1")
= AppendMenu (hPopup1, 0, 1, "選項2")

*----- 建立子選單2 ------
hPopup2 = CreatePopupMenu()
= AppendMenu (hPopup2, 0, 1, "條目1")
= AppendMenu (hPopup2, 0, 1, "條目2")

*--建立主選單 + 加入子選單 ---
hPopup = CreatePopupMenu()
= AppendMenu (hPopup, 0, 1, "正常")
= AppendMenu (hPopup, 2048, 1, "")
= AppendMenu (hPopup, 1, 1, "不可以使用")
= AppendMenu (hPopup, 2, 1, "點擊無效,如同不可以使用")
= AppendMenu (hPopup, 8, 1, "打勾")
= AppendMenu (hPopup,16, hPopup1, "子選單1") && 加入子選單1
= AppendMenu (hPopup,16, hPopup2, "子選單2") && 加入子選單2

= TrackPopupMenu(hPopup, 0, 200,200, 0, GetFocus(), 0) &&顯示凸顯表

=DestroyMenu(hPopup)
=DestroyMenu(hPopup1)
=DestroyMenu(hPopup2)


RETURN && ------------------------------------------------------

請問 : 當點擊某一選項後, 我要如何得知:

1.選項的代號

2.選單的名稱或代碼