delphi – 运行时设计 – 存储和加载表单布局(递归？)

我正在创建一个应用程序,其布局需要在客户端完全配置.这意味着每个组件(控件)可以调整大小并在表单中移动,可以添加新控件或删除一些控件.
我想使用JVCL Runtime Design(Design Surface和Object Inspector).

问题是关于存储和加载表单.
TStream.WriteComponent方法不支持递归写入,这意味着它只保存组件的“第一级”.

因此,举例来说,如果我在表单上放置TPanel,然后在Panel上放置TButton,并在Form上调用WriteComponent,则只保存TPanel,而不是TButton.

我的问题是 – *如何使用WriteComponent存储完整的控件层次结构？

解决方法

即使父级不同,您也应该使表单成为所有组件的所有者.关于您的示例,按钮和面板都应该由表单拥有.