DBGridEh 运行期用户调整了列宽或者其它属性的保存和加载

概念

使用 DBGridEh 的界面，运行期，用户可能会更改列宽，或者程序员用代码允许用户的其它改变操作比如字体颜色。用户改完后，程序将属性的新值保存到一个文件，下次程序启动，加载上次保存的数据，界面自动恢复到之前用户设置的状态。

基础方法

假设 Form1 界面上有两个 DBGridEh1，DBGridEh2；DBGrid1, Label1;

在 Form1 界面上放一个 IniPropStorageManEh1；放一个  PropStorageEh1；

双击 PropStorageEh1，弹出一个窗口，左边栏是 Form1 里面的所有控件，选择一个控件，下拉，可以看到控件的各种属性。选择好需要保存的属性。

这里，我选择了 DBGridEh1 的 Properties / Columns / For AllItems / Width 和 WordWrap; 也选择了 DBGridEh2 和 DBGird1 相同的属性；点击中间的 【 > 】箭头图标，就把选择的属性加入到右边框里面。点 OK 就保存了。

然后，程序里面写代码：

procedure TForm1.Button4Click(Sender: TObject);
begin
  //保存列宽
  Label1.Font.Color := clRed;
  IniPropStorageManEh1.IniFileName := Self.GetDbGridEhParamsFile;
  PropStorageEh1.SaveProperties;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  //导入列宽
  IniPropStorageManEh1.IniFileName := Self.GetDbGridEhParamsFile;
  PropStorageEh1.LoadProperties;
end;

function TForm1.GetDbGridEhParamsFile: string;
begin
  Result := TPath.Combine(ExtractFilePath(ParamStr(0)), 'DBGridEhParam.txt');
end;

到这里，就算做好了。

测试结果

1. Label1 的字体颜色在保存之前改为红色，再次运行程序，点 Load 按钮，确实变红色了。

2. DBGridEh1 和 DBGridEh2 在运行期改变列宽后，重启程序，点击 Load 按钮，列宽确实看见变化了；

3. DBGrid1 的列宽，没有任何变化。

进一步

1. DBGridEh1 在没有打开的时候，因为没有为它设置固定字段，在没打开的时候，字段不存在。这时执行 PropStorageEh1.LoadProperties;并不能改变什么。打开 DBGridEh1 对应的 DataSet 后，会发现列宽还是原来的。

1.1. 如果想打开 DataSet 后自动改变列宽为上次用户保存的值，可以在其对应的 DataSource1.OnDataChange 事件里面写上  PropStorageEh1.LoadProperties; 这行加载的代码。

2. 一个 PropStorageEh1 在设计期，只能看见它所在 Form 的控件。即便这个 Form uses 了其它 Form 它也看不见。因此可能需要每个 Form 都丢一个进去。

2.1. 每个 Form 都放一个 PropStorageEh1，但保存的文件只能有一个而不是多个，则需要程序全局只有一个 IniPropStorageManEh1，这个控件负责读写 ini 文件。每个 Form 的 PropStorageEh1.StorageManager 都指向这个 IniPropStorageManEh1 就可以了。

2.2. 因为每个有 DBGridEh 的 Form 里面的 PropStorageEh1.StorageManager 都要指向同一个 IniPropStorageManEh1，这个 IniPropStorageManEh1 的最佳位置是所有 DBGridEh 的 DataSource 都指向的 DataSet 所在的 DataModule.

---------- 分割线 ---------------

又及：

1. PropStorageEh1 在 Form 里面，设计期设置 Active 为 True，它自动加载。并且改动 DBGridEh 的列宽后，它自动保存。无需写代码。

2. 如果放在 Frame 里面，它不会自动加载，也不会自动保存。因此：

2.1. 需要在合适的地方，写入代码 PropStorageEh1.LoadProperties; 来加载。比如，在打开数据表的按钮里面。

2.2. 保存的动作，如果单独拿一个按钮或者菜单来做，会增加用户操作。因此，应该放在 DBGridEh OnColWidthsChanged 事件里面，但这里必须注意：

2.2.1. 界面启动时，这个事件会触发，此时列宽如果还没加载，则还是默认的列宽，则此时如果执行保存，则覆盖掉了之前用户设置的列宽；

2.2.2. 如果采用这个 DBGridEh 对应的 DataSource.DataSet.Active 来判断，也可能在还没加载用户设置时，就把默认值又保存回去覆盖掉用户设置；

2.2.3. 因此，这里还必须加上一个标志，必须在加载动作执行以后，才能执行保存动作。这样就能在用户改变列宽时自动保存了。

2.3. 保存代码：PropStorageEh1.SaveProperties;