delphi – 如何实现这种类型的Docking？

它使用Panel Docking,您可以在其中拖动Panel,然后使用屏幕上的一些视觉辅助工具来显示Panel可以停靠的位置,如下所示：

在拖动/停靠之前

在拖动/停靠阶段

当拖动/移动其中一个Dock面板时,Window现在看起来像这样：

如您所见,在拖动/移动对象面板时,它会显示面板可以停靠的位置的视觉帮助.当它不在对接位置时,它也像自由窗口一样移动.在此示例中拖动/移动其他Dock面板(例如“项目面板”)时也是如此.

这是一个使用它的应用程序的示例,我也看到其他应用程序也使用它.

是否有德尔福实现这种行为的方式？

我有一些占用一些空间,自由移动或对接它们的面板将是有用的功能实现.

谢谢.

UPDATE

LMD组件似乎提供了这样一个组件,我可以研究一下.