delphi - 如何向 Delphi Docking 示例添加持久性

Question

虽然我意识到除了包含的 Delphi 对接演示之外还有 other and better docking libraries可用，例如 Developer Express Library和 JVCL Docking Library ，但对于特定的演示项目，我仅限于使用 Delphi 内置功能(尽管存在一些明显的缺陷)。

我的问题涉及向对接状态添加持久性。通过检查 Controls.pas，我发现 TDockTree 是默认的停靠管理器，并且它具有流 I/O 例程。尽管我看不到有人如何调用这些例程，但在 SO 和各种论坛中进行了挖掘。我尝试从相关的 Create 和 OnDrop 事件加载并保存到文件，但我在黑暗中刺痛。我很高兴保存和恢复表单大小和状态，但正在努力思考我应该保存什么的概念。有好心人能给我一个起点吗？

我使用的是 Delphi XE3，所以所有(？)事情都是可能的!

非常感谢。

Answer 1

我正在使用Toolbar 2000 from J. Russels 。它提供面板、工具窗口和工具栏。

该函数提供了诸如 TBRegSavePositions 和 TBRegSavePositions 之类的函数，用于将用户自定义内容存储到注册表中。

通过代码行可以轻松加载“ View ”:

TBRegLoadPositions(self, HKEY_CURRENT_USER, c_BaseUserRegKey);

在这种情况下， self 就是我的形式。