CLUI实现的拖拽功能

易语言 2020-05-30 16:39:06

集_图片列表_图标.创建自系统图片组 (#图标大小_48x48)
集_图片列表.创建 (集_窗口.取窗口句柄 (), , 0, 0, 1, 1, , , , 集_图片列表_图标, )
集_图片列表.锁定位置 (5, 35, 5, 5)
集_图片列表.挂接事件 (#组件事件_图片列表_项目被拖出, 到数值 (&事件_列表框_项目被拖出))
' //如果要支持拖放,首先要注册拖放,然后挂接一个事件
集_图片列表.注册拖放 (真, 假)
集_图片列表.挂接事件 (#组件事件_文件被拖入, 到数值 (&事件_列表框_项目被拖入))
集_图片列表.挂接事件 (#组件事件_右键单击, 到数值 (&事件_列表框_右键被单击))