#include "mod_menu.as"
#uselib "user32"
#func DestroyMenu "DestroyMenu" int
#define CMD_OPEN 1
#define CMD_REMOVE 2
oncmd gosub *OnCommand, WM_COMMAND ; メッセージ割り込み
; サブメニュー作成
newmenu hfilemenu, 1
addmenu hfilemenu, "開く(&O)", CMD_OPEN
addmenu hfilemenu, "消す(&Q)", CMD_REMOVE
; トップメニュー作成
newmenu hmenu, 0
addmenu hmenu, "ファイル(&F)", hfilemenu, 0x10
applymenu hmenu
stop
; メッセージの処理
*OnCommand
cmd = wparam & 0xFFFF
if (CMD_OPEN == cmd) {
dialog "メニューを選択しました。"
}
if (CMD_REMOVE == cmd) {
; メニューを削除
;(一時的に表示するだけであれば、消さなくてよい
; その場合再表示する場合は、applymenu hmenuをすれば表示される)
DestroyMenu hmenu
; ウィンドウからメニューを除去
applymenu 0
}
return