在 Delphi 中，如何在创建应用程序的主窗体之前分配组件的属性值？

Question

TMS 的 FormSize 组件将 aForm 的大小和位置保存在 .ini 文件中。该文件的路径存储在组件的 SaveName 属性中。我想将 FormSize.SaveName 分配给用户的 AppData 文件夹中的文件。我可以在源代码中找到 AppData 路径。

有谁知道我在哪里（在我的代码中）将 AppData 路径分配给 FormSize.SaveName？我认为在创建 Form 之前，已创建 FormSize 组件并初始化默认的 SaveName。换句话说，FormSize 在 aForm 的 FormCreate 事件触发之前加载配置文件；在 aForm.FormCreate 期间为 FormSize.SaveName 赋值为时已晚。

谢谢，一如既往。

Answer 1

表单的调整是在TFormSize的Loaded方法中完成的，而不是在更改SaveName属性时完成的（尽管它是从之前的 DFM）。

如果在设计时将属性 SavePosition 和 SaveSize 设置为 false，则在运行时不会加载任何内容。在这种情况下，您可以通过调用 LoadFormSettings 和 SaveFormSettings 在代码中的方便位置手动加载和保存设置。

Answer 2

我希望 SaveName 存储在 .dfm 文件中，因此应该在加载时将其分配给组件。

如果您想确定代码中的保存名称，它可能应该在循环的早期。我只是检查了几种可能性：

1. 在表单的构造函数（覆盖）中，在调用继承之前；
2. 在表单的构造函数中（覆盖），在调用继承之后；
3. 在表单的 FormCreate 事件处理程序中；
4. 在窗体的 Loaded 过程（覆盖）中，在调用继承之前以及
5. 在窗体的 Loaded 过程（覆盖）中，在调用继承之后。

可能性 4 和 5 符合预期。 3 和 2 没有任何反应，1 引发了 AV。所以大卫的建议似乎不错。

Answer 3

“在 aForm.FormCreate 期间为 FormSize.SaveName 赋值也太过分了
迟到了。”

我有类似的要求，需要修改模块拥有的组件属性。鉴于加载的属性已经生效，标准“Create”事件已经太晚了。

在 DFM 中的属性在调用期间分配（或缓存） 惯例，在对 Loaded 的受保护虚拟调用期间，可以覆盖 ReadState 和 Loaded 过程。

按照 确保TADOConnection 的 Connected 属性在开发过程中为 false，考虑到相关数据集的设计需求，

在签入后续构建/部署的代码之前必须将该属性设置为 false 是一件很痛苦的事情。因此，我重写了 Loaded 方法并将流属性值修改为 false。

interface

type
    TMyDataModule = class(TDataModule)
        MyAdoConnection: TADOConnection;
    protected
        procedure Loaded; override;
    end;

implementation

type
  TADOConnectionHack = class(TADOConnection) end;

procedure TMyDataModule.Loaded;
begin
  TADOConnectionHack(MyAdoConnection).StreamedConnected := False;
  inherited Loaded;
end;