主题:  为什么这个下拉列表框无法显示下拉选项内容?

phy

职务:普通成员
等级:1
金币:1.0
发贴:210
#12002/10/28 10:59:29
为什么这个下拉列表框无法显示下拉选项内容?
menu:
Handle:=tMsCreateDropList(WindowHandle)
tMsSelectItem(Handle,1,"新建")
tMsSelectItem(Handle,2,"文档")
tMsSelectItem(Handle,3,"剪切")
tMsSelectItem(Handle,4,"复制")
tMsSelectItem(Handle,5,"粘贴")

display:
result:=tMsDisplayControl(Handle,CursorX,CursorY,150,100,1)



与人同乐

职务:管理员
等级:6
金币:18.0
发贴:3928
#22002/10/28 11:08:21
似乎是应该通过additem,而不是selectitem。



phy

职务:普通成员
等级:1
金币:1.0
发贴:210
#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)