如何提升Delphi运行时TPageControl批量创建TTabSheet的速度

核心优化方向及具体实现 #

• 暂停UI重绘，避免频繁刷新
  创建标签页过程中，PageControl每次添加组件都会触发重绘，这是最大的性能瓶颈。在创建前禁用重绘，完成后再恢复：

  // 创建前禁用重绘
  pgtabsx.Perform(WM_SETREDRAW, 0, 0);
  try
    // 标签页创建循环代码
  finally
    // 恢复重绘并刷新
    pgtabsx.Perform(WM_SETREDRAW, 1, 0);
    pgtabsx.Invalidate;
    panelstatus.caption := '标签页创建完成!';
  end;
  

• 移除不必要的ActivePage切换
  原代码每次创建新标签页后都设置pgtabsx.activepage := newTab;，这会强制切换页面并触发重绘，完全没必要。直接删除这行代码，创建完成后再按需设置ActivePage（比如恢复用户上次打开的页面）。

• 改用Frame封装标签页内容
  把主标签页的所有组件放到一个TFrame中，每次创建新标签页时直接创建Frame实例，比逐个创建组件效率高得多：

  1. 设计时创建TMainTabFrame，将主标签页的TEdit、TCheckBox等组件全部移入该Frame
  2. 创建标签页时：

  newTab := TTabSheet.Create(self);
  newTab.Name := tsx + inttostr(i);
  newTab.Caption := inttostr(i);
  newTab.PageControl := pgtabsx;
  
  // 创建Frame实例并挂载到标签页
  tabFrame := TMainTabFrame.Create(newTab);
  tabFrame.Parent := newTab;
  tabFrame.Align := alClient;
  
  // 按需复制数据到Frame组件
  if duplicaAba then
  begin
    tabFrame.Edit1.Text := MainEdit.Text + ' ' + inttostr(i);
    // 其他组件数据复制逻辑...
  end;
  

• 优化状态栏更新频率
  原代码每创建10个标签页更新一次状态栏，可改为每50个更新一次，或者创建完成后一次性更新，减少UI更新开销。如果必须实时显示进度，更新后不要调用Application.ProcessMessages，避免拖慢创建速度。

• 减少字符串重复计算
  提前缓存重复使用的字符串，比如inttostr(i)在循环开头计算一次，避免重复调用：

  var
    sI: string;
  begin
    sI := inttostr(i);
    newTab.Name := tsx + sI;
    newTab.Caption := sI;
    // 后续用到inttostr(i)的地方均用sI代替
  end;
  

修改后的核心代码片段示例 #

var
  i, j: Integer;
  newTab: TTabSheet;
  o: TComponent;
  n, oname, aux, sI: string;
  newPan: TPanel;
  father: TWinControl;
begin
  // 禁用重绘
  pgtabsx.Perform(WM_SETREDRAW, 0, 0);
  panelstatus.caption := '正在创建标签页...';
  try
    for i := pgtabsx.PageCount to tabcontx.Value do
    begin
      sI := inttostr(i);
      // 每50个标签页更新一次进度
      if i mod 50 = 0 then
        panelstatus.caption := '创建标签页 (' + sI + ' / ' + inttostr(tabcontx.Value) + ')...';

      if TTabSheet(FindComponent(tsx + sI)) = nil then
      begin
        newTab := TTabSheet.Create(self);
        newTab.Name := tsx + sI;
        with newTab do
        begin
          Caption := sI;
          PageControl := pgtabsx;
          Parent := pgtabsx;
          Visible := true;
          PageIndex := pgtabsx.PageCount - 1;
        end;
        father := newTab;

        for j := 1 to Length(tabcompsx) do
        begin
          o := tabcompsx[j];
          if o = nil then
            Continue;
          oname := o.Name;

          // 组件复制逻辑（未改用Frame时保留）
          if o is TPanel then
          begin
            n := df.noNumbers((o as TPanel).Name) + sI;
            newPan := TPanel.Create(self);
            newPan.Name := n;
            with newPan do
            begin
              Parent := newTab;
              Height := (o as TPanel).Height;
              Width := (o as TPanel).Width;
              Top := (o as TPanel).Top;
              Left := (o as TPanel).Left;
              Align := (o as TPanel).Align;
              Caption := (o as TPanel).Caption;
              ParentBackground := (o as TPanel).ParentBackground;
              BevelInner := (o as TPanel).BevelInner;
              BevelKind := (o as TPanel).BevelKind;
              BevelOuter := (o as TPanel).BevelOuter;
              BorderWidth := (o as TPanel).BorderWidth;
              BorderStyle := (o as TPanel).BorderStyle;
              Visible := (o as TPanel).Visible;
            end;
            father := newPan;
          end
          // 其他组件类型的复制逻辑...
        end;
      end;
    end;
    // 创建完成后设置默认激活页面
    if pgtabsx.PageCount > 0 then
      pgtabsx.ActivePage := pgtabsx.Pages[0];
  finally
    // 恢复重绘
    pgtabsx.Perform(WM_SETREDRAW, 1, 0);
    pgtabsx.Invalidate;
    panelstatus.caption := '标签页创建完成! 总数: ' + inttostr(tabcontx.Value);
  end;
end;

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