可拖动组件？

Question

我有两个窗体（一个主窗体和一个子主窗体）。我想做一些类似 CodeGear 的 IDE 面板的拖放操作。这意味着我可以移动它们并将它们与其他组件合并。

但是，我要求的是不同的东西：

我想将子主窗体拖到主窗体中，并将​​其变成类似 TFrame 的东西，或者换句话说，是不会移动但保持静止的东西。然后反向 - 我想只要有机会就可以从 TFrame 中取出表格。

我的想法可行吗？如果可行，您能解释一下如何实现吗？

编辑：我想到了一个想法。是否可以创建一个从 TForm 继承所有控件/组件的 TFrame，以便组件保留在窗体上，但是当我尝试转动它时进入 Tframe，它只是将可见性更改为 false，并显示 TFrame 包含表单中的所有内容。这可能吗？

Answer 1

将主窗体的 DockSite 属性设置为 True，然后处理 OnDockOver 和 OnDockDrop 事件。

您可以在 Docking 演示中看到 VCL 拖放对接支持的示例（在 C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Demos\DelphiWin32\VCLWin32 中为 WinXP 上的 Delphi 2007 安装\Docking，对于 Delphi 7，位于 C:\Program Files\Borland\Delphi7\Demos\Docking。）Delphi 2009 的文件夹位置与 Delphi 2007 的文件夹位置相同；只需将路径中的 5.0 更改为 6.0 即可。