浮动面板怎么做？有没有代码？

Question

创建一个新窗体，窗体设置成ToolWindow，然后在OnShow事件中利用SetWindowPos将窗口设置成总在最上面！！！

Answer 1

新建一个Form1(主),Form2(浮动)Form1->BottonClick中加入：
Form2.Show;在Form2->Create中加入：
borderstyle:=bstoolwindow;
setwindowpos(handle,hwnd_topmost,0,0,0,0,3);

Answer 2

Form1.docksite:=true;
然后在上面放panel,coolbar等容器
panel1.dragkind:=dkdock;
panel1.dragmode:=dmautomatic;