Delphi遗留项目中窗体属性保存与重启恢复问题求助

核心问题分析 #

你的恢复代码存在两个致命问题：

• 创建窗体后立即释放：调用Application.CreateForm后执行form.Free，直接销毁了刚创建的窗体实例，后续FindComponent无法找到目标窗体，访问form属性会触发空指针异常，这就是程序启动无响应的根源。
• 类查找失败：GetClass('T' + Sections[i])返回nil，因为Delphi的类需要提前通过RegisterClass注册，或者对应窗体单元未被正确引入到项目中。

分步解决方案 #

1. 修复类查找问题 #

要动态创建窗体类，必须确保类已被注册到Delphi类工厂：

• 检查单元引用：所有窗体对应的单元必须在项目的dpr文件中引用（即使窗体是动态创建，单元也需要被包含，否则编译后类信息不会被打包进程序）。
• 批量注册窗体类：如果窗体数量近千，逐个写注册代码效率太低，可以用Rtti实现自动注册（适用于Delphi 2010及以上版本）：

uses Rtti;

procedure RegisterAllFormClasses;
var
  ctx: TRttiContext;
  typ: TRttiType;
begin
  ctx := TRttiContext.Create;
  try
    for typ in ctx.GetTypes do
    begin
      if typ.IsInstance and typ.InheritsFrom(TForm) and
        (Copy(typ.Name, 1, 2) = 'TF') then // 匹配类名前缀规则
      begin
        RegisterClass(TFormClass(typ.AsInstance.MetaclassType));
      end;
    end;
  finally
    ctx.Free;
  end;
end;

在程序启动阶段（比如dpr中创建主窗体前）调用这个函数即可完成所有窗体类的注册。

2. 修复窗体创建与恢复逻辑 #

删除创建后立即释放的代码，确保窗体实例存在后再设置属性：

procedure RestoreForms();
var
  i : Integer;
  iniFile : TIniFile;
  form : TForm;
  FormClass : TFormClass;
  Sections : TStringList;
  FormName: string;
begin
  iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'FormInfo.ini');
  Sections := TStringList.Create;
  form := nil;

  try
    IniFile.ReadSections(Sections);
    for i := 0 to Sections.Count -1 do
    begin
      FormName := Sections[i];
      // 先查找已存在的窗体实例
      form := Application.FindComponent(FormName) as TForm;

      if not Assigned(form) then
      begin
        // 查找对应窗体类
        FormClass := TFormClass(GetClass('T' + FormName));
        if Assigned(FormClass) then
        begin
          // 创建窗体，自动加入Application管理
          Application.CreateForm(FormClass, form);
          // 先隐藏，后续根据配置设置可见性
          form.Visible := False;
        end
        else
        begin
          // 类找不到，跳过当前节避免崩溃
          Continue;
        end;
      end;

      // 恢复窗体属性
      with form do
      begin
        Position := poDesigned;
        // 先恢复正常状态的尺寸位置，再处理最大化
        Top := IniFile.ReadInteger(FormName, 'Top', Top);
        Left := IniFile.ReadInteger(FormName, 'Left', Left);
        Height := IniFile.ReadInteger(FormName, 'Height', Height);
        Width := IniFile.ReadInteger(FormName, 'Width', Width);
        
        if IniFile.ReadBool(FormName, 'IsMaximized', False) then
          WindowState := wsMaximized
        else
          WindowState := wsNormal;

        // 主窗体强制可见，其他窗体按配置设置
        if FormName = 'F_Main' then
          Visible := True
        else
          Visible := IniFile.ReadBool(FormName, 'Visible', False);
      end;
    end;
  finally
    Sections.Free;
    iniFile.Free;
    // 不要手动释放form，窗体实例由Application管理，关闭时自动销毁
  end;
end;

3. 额外优化建议 #

• 调整窗体关闭逻辑：给所有动态创建的窗体设置CloseAction := caHide，确保关闭时只是隐藏而非销毁，避免状态丢失。
• 添加错误捕获：在遍历ini节的循环中加入try...except块，防止单个窗体的恢复失败导致整个程序崩溃。
• 验证ini数据：读取尺寸位置时增加范围检查（比如Left/Top不能为负，Width/Height不小于最小阈值），避免窗体跑到屏幕外无法操作。

内容的提问来源于stack exchange，提问作者Kanubbel