制作右键菜单

• 菜单
• 制作
• 设置
• 图标
• popHandle
• 一个
• tMsAd

--取得窗口句柄

popHandle:=tMsCreatePopupList(WindowHandle)

--设置菜单内容

Res:=tMsAddItem(popHandle, 1,0,"新建")

Res:=tMsAddItem(popHandle, 1,1,"文件夹")

Res:=tMsAddItem(popHandle, 1,2,"文本文件")

Res:=tMsAddItem(popHandle, 2,0,"-")

Res:=tMsAddItem(popHandle, 3,0,"刷新")

Res:=tMsAddItem(popHandle, 4,0,"-")

Res:=tMsAddItem(popHandle, 5,0,"退出")

图1响应属性设置对话框

--设置菜单显示位置

if CursorX<728 then

    Res1:=tMsDisplayControl(popHandle, CursorX, CursorY, 100,100, 1)

else

    Res1:=tMsDisplayControl(popHandle, CursorX-70, CursorY, 100,100, 1)

    end if

--判断是否选择了“退出”

if (Res1=5) then Quit()

提示：第一个条件语句是用来设置菜单显示位置，通常菜单的大小是随菜单中的文字自动改变的，所以在选择条件时要根据出现的菜单的大小来更改。.