Delphi Vcl：如何为TPageControl的动态TTabSheet创建托管的自定义TFrame

常见报错根因 #

• 流程缺失：现有循环仅创建空的TTabSheet，未完成TFrame的挂载逻辑
• 引用缺失：未在主窗体uses列表中引入自定义TFrame所在单元，创建时触发类未找到报错
• 资源未清理：重复读取INI时，未释放已创建的动态TabSheet，导致控件重复叠加、内存访问冲突
• 父子关系错误：创建TFrame时未正确指定Parent为对应TTabSheet，触发父容器无效报错

实现步骤 #

1. 准备自定义TFrame
   • 新建TFrame类（例如命名为TFramePosition），在窗体上摆放好业务需要的TEdit、TDateTimePicker等控件，保存为独立单元文件
2. 主窗体配置
   • 在主窗体单元的uses段添加上述TFrame对应的单元路径
3. 完善INI读取逻辑
   • 为动态创建的TabSheet打Tag标记，避免清理时误删设计期放置的静态TabSheet
   • 每次读取INI前，先清空所有历史动态TabSheet
   • 循环内依次完成TabSheet创建、TFrame挂载、INI数据绑定流程

修改后的核心实现代码 #

procedure TDlg_XRechnung.INIDatei_einlesen;
var
  NeueSeite : TTabSheet;
  i,j: Integer;
  PosFrame: TFramePosition; // 声明自定义Frame类型
begin
  try
    INIDatei := TIniFile.Create(INIDateiname);
    // 原有基础字段读取逻辑，和你现有代码保持一致
    Version                 := INIDatei.ReadInteger('INI','Version', 1);
    DebugMode               := INIDatei.ReadInteger('INI','DebugMode', 0);
    PDFDatei                := INIDatei.ReadString('PDF','PDFName', '');
    XRechnungDatei          := INIDatei.ReadString('PDF','XInvoice', '');
    Edit_LeitwegeID.Text    := INIDatei.ReadString('InvData','BT-10', '');
    Edit_Bestellnummer.Text := INIDatei.ReadString('InvData','BT-13', '');
    // ... 其他基础字段读取代码保持原有逻辑不变

    // 清理历史动态TabSheet（约定动态TabSheet的Tag属性设为1）
    for j := PC_Positionen.PageCount - 1 downto 0 do
    begin
      if PC_Positionen.Pages[j].Tag = 1 then
        PC_Positionen.Pages[j].Free;
    end;

    AnzahlPositinen := INIDatei.ReadInteger('POS','AnzPos', 1);
    for i := 1 to AnzahlPositinen do
    begin
      // 1. 创建动态TabSheet
      NeueSeite := TTabSheet.Create(PC_Positionen);
      NeueSeite.PageControl := PC_Positionen;
      NeueSeite.Caption := 'Position ' + IntToStr(i);
      NeueSeite.Tag := 1; // 标记为动态创建，方便后续清理

      // 2. 挂载自定义TFrame
      PosFrame := TFramePosition.Create(NeueSeite); // Owner设为TabSheet，自动随TabSheet释放
      PosFrame.Parent := NeueSeite; // 指定父容器为当前TabSheet
      PosFrame.Align := alClient; // 让Frame铺满整个TabSheet区域

      // 3. 从INI读取当前位置的字段值，绑定到Frame内的控件
      PosFrame.Edit_Artikeltext.Text := INIDatei.ReadString('POS' + IntToStr(i), 'BT-153', '');
      PosFrame.Edit_Menge.Text := INIDatei.ReadString('POS' + IntToStr(i), 'BT-149', '');
      PosFrame.Edit_Einzelpreis.Text := INIDatei.ReadString('POS' + IntToStr(i), 'BT-146', '');
      // 其他字段读取按业务需求补充
    end;

  finally
    INIDatei.Free;
  end;
end;

关键注意事项 #

• 动态创建组件时，Owner属性必须绑定到对应的容器组件，TabSheet释放时，挂载在上面的Frame会被自动回收，避免内存泄漏
• 不要将TFrame的Owner设为主窗体，否则TabSheet销毁时Frame不会被同步释放，多次操作后会产生内存泄漏
• 如果创建Frame时触发类未找到的报错，优先检查主窗体的uses列表是否正确引入了TFrame所在的单元

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