如何实现千千静听的界面效果？

Question

就是一个程序由几个窗体组成  窗体间靠近了会吸住（类磁铁功能）
谢谢了

Answer 1

几个窗体在TForm1.FormCreate 的时候同时创建
可以吗？
谢谢

Answer 2

在窗口的WMMove消息中写代码！
...
private
  procedure WMMove ( var Msg : TWMMove ); message WM_Move;
....procedure TForm1.WMMove(var Msg: TWMMove);
begin
    //如果两个窗口的距离小于设定的值，就设置另一个窗口的位置和另一个窗体相临......
    if Abs ( Form1.Top - ( MainForm.Top + MainForm.Height ) ) < 20 then
    begin
        Form1.Top := MainForm.Top + MainForm.Height;
    end
    else if Abs ( Form1.Left - ( MainForm.Left + MainForm.Width ) < 20 then
    begin
        Form1.Left := MainForm.Left + MainForm.Width;
    end;
end;

Answer 3

谢谢 etomahawk(一意孤行)
先试试看