找了一段,发现不对劲
treeviewitem tvi_parent
integer ll_tvi
ll_tvi = tv_list.FindItem(ParentTreeItem!, 0)
tv_1.GetItem ( ll_tvi, tvi_parent)
------解决方案--------------------
在 clicked 事件中写:
treeviewitem tvi_parent
long ll_tvi
ll_tvi = tv_list.FindItem(ParentTreeItem!, handle)
tv_1.GetItem ( ll_tvi, tvi_parent)
成功,返回父列表项的handle
失败,返回-1,如果你点击的是第一层的列表项,返回的值也是 -1,也就是说,之前应该检查该项是否第一层列表项.