Delphi 两种形式相互咬合

我有一个关于两个窗体相互捕捉的问题

例如，如果我将一个窗体移近另一个窗体，并且它处于一定距离，则它的边将捕捉到另一个窗体的边。捕捉后，我可以通过只移动一个窗体来移动两个窗体。我怎样才能做到这一点

---

我在Skype、DVD Decrypter和ImgBurn中看到过这种效果。

尝试使用（绝地视觉组件库）的组件。

我使用的是动态创建的表单，而JvFormMagnet似乎对我不起作用。您可以尝试使用TMagnet Pas文件组件将表单相互捕捉。一个很好的对接选择。通过演示和编译示例。这真的很简单。

@WarrenP虽然不太一样。OP似乎在谈论并排的表单，而不是一个接一个的表单。我还没有看到对接实现可以并行工作。对接通常意味着在选项卡主机或联合主机窗体（JVCL JvDocking就是这样做的）上共同创建子对象，浮动/连接对象（TJvFormMagnet）是与联合主机对接密切相关的概念（此类窗体并排或在彼此上方），共享单个框架，并具有垂直或水平大小调整器。