你可以在这里：tMsControls.u32（tMsControls.u32是Mediashoppe提供的一个免费的函数库，其功能非常强大）导入三个函数（tMsCreatePopupList、tMsDisplayControl、tMsAddItem）
制作过程如下：
取得Windows句柄：popupHandle:=tMsCreatePopupList(WindowHandle)。
设置选单内容：Result:=tMsAddItem(popupHandle,1,0, "新建")，其中参数ControlHandle是控制句柄的变量名，这里是popupHandle；参数menuItemNo是选单内容中的排列顺序；参数submenuItemNo的作用是设置子选单，如“0”表示是一级选单，“1、2、3......”表示二级选单；参数MenuText是设置选单显示内容，其中分隔线用“-”。
如果是要下一级菜单，Result:=tMsAddItem(popupHandle,1,1, "word文档")。这里表示在新建菜单下又有一级菜单"word文档",当然还可以建很多这样的菜单。
设置选单显示位置：Result:=tMsDisplayControl(popupHandle, X, Y, Width, Height, 1)，其中参数X、Y分别表示水平和垂直位置；参数Windth、Height分别表示选单的宽和高。
这些可以放在两个计算图标里，先是要获得windows 句柄。
看看能不能达到你要的效果？
