tMsAddItem(droplisthandle, 4, 0, "清 音 飞 扬")
tMsAddItem(droplisthandle, 5, 0, "魔 岩 工 作 室")
---- 下列代码是显示下拉列表式菜单
tMsDisplayControl(droplisthandle,17,80,50,50,0)
（2）加鼠标右键响应弹出菜单的永久条件交互和下拉列表菜单选择菜单的按钮响应。设置条件“RightMouseDown=TRUE”，其中“RightMouseDown”为系统变量，返回类型为“Continue”，并设置为永久交互，如图5.6所示。这样当用户进行鼠标右浆操作时，条件为真，执行计算图标里的代码后并弹出菜单，由用户选择：
---- 下列代码在鼠标右键点击处，弹出一个前边设定好的弹出式菜单，
---- 并将用户反馈（即用户所选择的菜单项）返回给变量popresult：
popresult:=tMsDisplayControl(popupHandle, CursorX, CursorY, 100, 120, 1)
---- 下面是当用户选择弹出式菜单执行的相关操作的代码：
if popresult="退出系统" then Quit() -----这里只是“退出系统”操作代码的样式范本
图5.6 右键响应弹出菜单的永久条件交互
而另一个“Continue”交互“GO”就是下拉列表菜单的相关操作，计算图标的代码如下：
----将用户反馈（即用户所选择的菜单项）返回给变量DropReturnVar：
DropReturnVar:=tMsGetItem(droplisthandle, 0, 0)
---- 下面是当用户选择菜单后执行相关操作的代码，只是简单显示一个交互消息框而已。
if DropReturnVar=3 then MessageBox(WindowHandle,"URL: http://bbs.stu.edu.cn ","郁金香BBS",64)
if DropReturnVar=4 then MessageBox(WindowHandle,"URL: http://www.music.stu.edu.cn ","清音飞扬",64)
if DropReturnVar=5 then MessageBox(WindowHandle,"URL: http://202.192.154.5/myhome/rock ","魔岩工作室",64)
5）存盘完成。
执行一下，看看效果吧。
