在DELPHI5里怎么把窗口winamp一样,可以自由的组合,可....(0分)

在DELPHI5里怎么把窗口winamp一样,可以自由的组合,可以自由的移动,且具有粘性的,这样的粘性窗体在
是什么要的控件,在那里可以下载或你有现在的答案吗?可以告诉我吗

原理非常的简单,鄙人也曾作一例
首先在得到窗口的移动事件,消息WM_MOVE
声明
procedure FormMove(Var Msg:TMessage)
message WM_MOVE;
begin
if abs(Form1.Top-(Form2.Top+Form2.Height))<10 then
Form1.Top=Form2.Top+Form2.Height
......
//以上是窗口上部的粘合代码分离代码也差不多，其他左右和底部代码可以自己完成，
end;
如果搞不定可Email:xsxdelphi@sohu.com
我可以给你一例