如何像 Delphi IDE 那样使​​用引脚和选项卡进行拖放？

Question

我想让 Drag and Dock 在我的应用程序中像在 Delphi IDE 中一样工作（即能够在对象检查器/结构视图周围拖动并将它们停靠在合适的位置）。我在将表单停靠到 PageControl 方面取得了相当大的成功，但想知道是否有人知道如何让它与小关闭按钮和引脚等一起工作。

我也很想知道 Delphi IDE 使用哪些组件来实现这一点。

我提出问题的原因是我想制作更多关于如何做到这一点的高级视频，我之前做过的两个视频是 here 和 here。

Answer 1

您几乎可以在任何版本的 Delphi 中使用JVCL JvDocking 组件进行拖放。它是免费和开源的。带有大头针和关闭按钮的样式可以使用 JvDocking 附带的称为 VID（visual interdev）样式的停靠样式。

已经有很多商业替代品，并且 Delphi 内置了一些支持，我发现这些支持不足以满足我的需求。虽然 Delphi IDE 有自己的内部停靠库，但对选项卡的支持非常有限、速度慢，而且在我的主观意见中，它已损坏。

然而，即使在古老的 delphi 版本中，Delphi 7 及更高版本，JvDocking 也提供了 VCL 对接所提供的所有功能以及更多功能，因此忽略内置的 VCL 功能是没有问题的，即像 TStringGrid 一样对接真正的网格。

使用 JvDocking 的步骤：

1. 将停靠服务器和停靠样式对象放在主（主机窗体）上并连接它们。
2. 将停靠客户端组件拖放到客户端（要停靠的表单）并将其连接到停靠样式。
3. 配置停靠服务器的属性。
4. 运行应用程序。让它创建一个表格。现在将客户端窗体拖到停靠服务器可停靠的区域。看着它很好地停靠。

有关代码演示中的停靠，请参阅 JVCL 示例文件夹中的 JvDocking 演示。

更新

或者您可以使用自 XE 和 XE2 以来内置在 Delphi VCL 中的内容。 XE 和 XE2 包含一个名为 dockex.dpr 的对接演示项目。

在 Win7/Vista 上，演示位于：

C:\Users\Public\Documents\RAD Studio\9.0\Samples\Delphi\VCL\Docking

在此处查看有关 Win XP 的演示：

C:\Documents and Settings\All Users\Documents\RAD Studio\9.0\Samples\Delphi\VCL\Docking

您还应该查看 VCL 中 TDockTabSet 的文档，以及 cmets 中链接的 EDN article，其中包含可以下载 here 的源代码。在我看来，Jedi JvDocking 的东西比 Delphi 附带的 Docking Demo 更专业、更流畅，但内置的东西具有无需安装任何额外东西即可工作的优势。我刚刚尝试了 DockTabSet 演示和内置的停靠演示，它们很慢，而且画得很丑而且闪烁。 JvDocking 看起来很专业。这是你的电话。