Delphi FireMonkey多表单模拟单屏显示的最优实现方案咨询

这个需求我刚好在几个FireMonkey项目里落地过，最佳方案绝对是用Frame替代独立Form，配合主窗体统一管理——折腾多Form的位置、大小同步不仅容易出bug，还很难做到完全无切换感，而Frame方案天然就能满足你的所有要求。

核心思路 #

放弃使用多个独立Form，把每个业务界面做成TFrame，所有Frame都嵌入同一个主窗体的容器中。这样所有界面天然共享同一个窗口的位置、大小和缩放比例，用户视觉上只会看到一个窗口，根本不存在“切换表单”的操作。

具体实现步骤 #

1. 重构界面为Frame #

• 把原来每个独立Form上的控件、逻辑，迁移到对应的TFrame中（直接在IDE里复制粘贴控件即可，事件和属性会保留）。
• 主窗体上添加一个容器控件（推荐TPanel或TLayout），设置它的Align属性为Client，让它占满主窗体的客户区——这个容器就是所有Frame的“载体”。

2. 实现界面切换（无视觉割裂） #

切换界面时，只需要替换容器内的Frame即可，全程在同一个窗口内完成，不会有窗口切换的动画或闪烁：

// 主窗体代码示例：切换到Frame1
procedure TMainForm.btnSwitchToFrame1Click(Sender: TObject);
var
  TargetFrame: TFrame1;
begin
  // 先释放当前容器内的旧Frame（避免内存泄漏）
  if pnlContentContainer.Controls.Count > 0 then
    pnlContentContainer.Controls[0].Free;
  
  // 创建新Frame并挂载到容器
  TargetFrame := TFrame1.Create(Self);
  TargetFrame.Parent := pnlContentContainer;
  TargetFrame.Align := TAlignLayout.Client; // 自动占满容器
end;

如果需要保留界面状态（比如用户输入的内容），可以不用销毁旧Frame，而是把所有Frame提前创建好，切换时只设置Visible属性：

// 提前初始化所有Frame（比如在主窗体OnCreate事件中）
procedure TMainForm.FormCreate(Sender: TObject);
begin
  fFrame1 := TFrame1.Create(Self);
  fFrame1.Parent := pnlContentContainer;
  fFrame1.Align := TAlignLayout.Client;
  fFrame1.Visible := False;

  fFrame2 := TFrame2.Create(Self);
  fFrame2.Parent := pnlContentContainer;
  fFrame2.Align := TAlignLayout.Client;
  fFrame2.Visible := False;

  // 默认显示第一个Frame
  fFrame1.Visible := True;
end;

// 切换Frame的方法
procedure TMainForm.ShowFrame(TargetFrame: TFrame);
begin
  fFrame1.Visible := False;
  fFrame2.Visible := False;
  TargetFrame.Visible := True;
end;

3. 支持窗体调整大小与移动 #

• 移动窗体：主窗体本身支持拖动标题栏移动，完全不需要额外处理；如果需要支持拖动客户区移动，可以在主窗体的OnMouseDown和OnMouseMove事件中实现拖动逻辑。
• 调整大小：因为容器和Frame都设置了Align=Client，主窗体大小变化时，容器会自动占满主窗体，Frame也会自动占满容器，完全同步缩放比例。如果需要统一控制缩放行为，可以在主窗体的OnResize事件中调整Scale属性，或者利用FireMonkey的矢量特性，确保所有控件的布局都用相对约束（比如Anchor、Align），避免固定尺寸导致的变形。

4. 确保无切换感的细节优化 #

• 保留主窗体的任务栏按钮即可——用户看到的始终是同一个任务栏图标，不会出现多个窗口。
• 避免切换时的闪烁：可以给容器控件开启双缓冲（DoubleBuffered=True），或者在创建Frame时先设置Visible=False，挂载完成后再设为True。
• 不需要额外处理系统快捷键切换：因为所有界面都在同一个窗口里，Alt+Tab只会切换到其他应用，不会切换你的内部界面。

为什么不推荐多Form方案？ #

如果硬要用多个Form，你需要同步所有Form的Position、Size、Scale、WindowState，还要处理窗体激活、任务栏按钮、焦点切换等问题，不仅代码量大，还很容易出现同步延迟（比如调整大小时某个Form没跟上），根本做不到“视觉上单一屏幕”的效果。而Frame方案几乎是零成本解决这些问题。

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