#32002/10/28 13:41:18
多谢版主!是additem,selectitem是用来预设值的,我弄错了。
现已搞掂:
menu:(计算)
Handle:=tMsCreateDropList(WindowHandle)
tMsAddItem(Handle,1,0,"新建")
tMsAddItem(Handle,2,0,"文档")
tMsAddItem(Handle,3,0,"剪切")
tMsAddItem(Handle,4,0,"复制")
tMsAddItem(Handle,5,0,"粘贴")
tMsAddItem(Handle,6,0,"关于")
rightmousedown:(交互)
result:=tMsDisplayControl(Handle, CursorX,CursorY,150,100,1)