Delphi 10.4动态创建多表单及通用函数实现报错求助

问题背景 #

现有Delphi 10.4应用包含20+动态创建的表单，当前通过分支语句逐个判断创建表单，希望实现通用创建函数，同时支持部分表单在Show前执行特定初始化逻辑（如SetUser）。自行尝试的实现导致FormActivate事件中执行comboStatus.Items.BeginUpdate时触发Access Violation错误。

一、通用表单创建函数的正确实现 #

1. 全局表单信息存储设计 #

将表单类与实例引用的映射定义为全局变量，确保持久保存已创建的表单实例，避免局部变量导致的引用丢失：

unit FormManager;

interface

uses
  Forms, Classes;

type
  // 定义初始化接口，用于标记需要执行特定逻辑的表单
  IFormUserInitializer = interface
    ['{5F88E5D1-7B0A-4F2D-8A1E-3F9B7C2E1A09}'] // 自行生成GUID（Ctrl+Shift+G）
    procedure SetUser(nUser: Integer); // 根据实际需求调整参数类型
  end;

  // 存储表单类与实例的映射
  TFormMapping = record
    FormClass: TFormClass;
    Instance: TForm;
  end;

var
  // 根据实际表单数量调整数组范围，示例为1..2
  FormMappings: array[1..2] of TFormMapping = (
    (FormClass: TFormParam; Instance: nil),
    (FormClass: TFormCliGrid; Instance: nil)
  );

procedure ShowTargetForm(FormIdx: ShortInt; UserID: Integer = 0);

implementation

procedure ShowTargetForm(FormIdx: ShortInt; UserID: Integer);
var
  TargetForm: TForm;
begin
  // 校验索引合法性，避免数组越界
  if (FormIdx < Low(FormMappings)) or (FormIdx > High(FormMappings)) then
    Exit;

  TargetForm := FormMappings[FormIdx].Instance;
  if not Assigned(TargetForm) then
  begin
    // 创建表单，Owner设为Application统一管理生命周期
    TargetForm := FormMappings[FormIdx].FormClass.Create(Application);
    FormMappings[FormIdx].Instance := TargetForm;

    // 自动执行特定初始化逻辑（如果表单实现了接口）
    if Supports(TargetForm, IFormUserInitializer) then
      (TargetForm as IFormUserInitializer).SetUser(UserID);
  end;

  // 激活并显示表单
  TargetForm.Show;
  TargetForm.BringToFront;
end;

end.

2. 支持特定初始化的表单实现 #

让需要执行SetUser的表单实现上述接口，无需在通用函数中写分支判断：

unit FormParam;

interface

uses
  Forms, FormManager;

type
  TFormParam = class(TForm, IFormUserInitializer)
    // 控件声明...
  public
    procedure SetUser(nUser: Integer); // 实现接口方法
  end;

implementation

{$R *.dfm}

procedure TFormParam.SetUser(nUser: Integer);
begin
  // 这里编写表单专属的初始化逻辑，如赋值用户ID、加载权限数据等
end;

end.

二、Access Violation错误的解决 #

你遇到的AV错误核心原因是表单实例引用未被持久化：

• 原代码中arrayForm是过程局部变量，每次调用CreateForm都会重新初始化，导致已创建的表单实例引用丢失，实例可能被VCL自动销毁，触发事件时控件已无效。

修复步骤 #

1. 调整数组作用域：必须将表单映射数组定义为全局变量（或类成员），确保实例引用持久保存。
2. 同步表单销毁状态：如果表单关闭时设置CloseAction = caFree，需在OnClose事件中更新全局数组的实例引用，避免野指针：

   procedure TFormCliGrid.FormClose(Sender: TObject; var Action: TCloseAction);
   var
     i: Integer;
   begin
     Action := caHide; // 若需关闭时销毁，设为caFree并同步更新数组
     if Action = caFree then
     begin
       for i := Low(FormMappings) to High(FormMappings) do
       begin
         if FormMappings[i].Instance = Self then
         begin
           FormMappings[i].Instance := nil;
           Break;
         end;
       end;
     end;
   end;
   

3. 检查控件有效性：确认comboStatus控件在DFM中已正确创建，未被动态销毁；若为动态创建，需确保在FormActivate触发前完成初始化。

三、额外优化建议 #

• 使用枚举替代数字索引：提高代码可读性，避免索引错误：

  type
    TFormType = (ftParam, ftCliGrid);
  

  调用时直接使用ShowTargetForm(ftParam, UserID)。
• 改用动态列表存储：如果表单数量可能变化，用TList<TFormMapping>替代静态数组，方便动态增删：

  var
    FormMappings: TList<TFormMapping>;
  
  initialization
    FormMappings := TList<TFormMapping>.Create;
    FormMappings.Add(TFormMapping.Create(TFormParam, nil));
    FormMappings.Add(TFormMapping.Create(TFormCliGrid, nil));
  finalization
    // 释放所有表单实例
    for var Mapping in FormMappings do
      if Assigned(Mapping.Instance) then
        Mapping.Instance.Free;
    FormMappings.Free;
  end.
  

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