高手赐教,怎样实现这样的控件拖放?

Delphi > Windows SDK/API [问题点数:100分,结帖人qybao]
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
结帖率 100%
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
等级
本版专家分:5926
勋章
Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
qybao

等级:

Blank
签到王者 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
GitHub 绑定GitHub第三方账户获取
Blank
进士 2019年总版新获得的技术专家分排名前十
Blank
金牌 2020年7月 总版技术专家分月排行榜第一
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一