供出所有分数 求形状控件的一些功能如何实现！ ( 积分: 70 )

主要是用来拖动的
1 用Tshape改写而来 添加了一个 Text属性 在形状中心显示文本
2 利用windows消息 实现了拖动功能 //移动时显示虚线框 并不移动实体 该如何实现？
3 如何给控件添加焦点 当控件获得焦点后显示另外一种样式
4 如窗体中 放了多个控件 可多选 并且可以一起移动
5 需要母体控件 大小和它一样 当接近母体控件时 吸附在母体控件上。

后面 3，4，5 该 如何实现呢 哪位朋友帮下忙咯， 万分感谢！！！！
这是我的代码：http://2lin.net/myvcl.pas

主要是用来拖动的
1 用Tshape改写而来 添加了一个 Text属性 在形状中心显示文本
2 利用windows消息 实现了拖动功能 //移动时显示虚线框 并不移动实体 该如何实现？
3 如何给控件添加焦点 当控件获得焦点后显示另外一种样式
4 如窗体中 放了多个控件 可多选 并且可以一起移动
5 需要母体控件 大小和它一样 当接近母体控件时 吸附在母体控件上。

后面 3，4，5 该 如何实现呢 哪位朋友帮下忙咯， 万分感谢！！！！
这是我的代码：http://2lin.net/myvcl.pas

TSHAPE是从TGRAPHICCONTROL继承而来，应该本身就不具备焦点功能。
如何获得焦点？