### Delphi FMX 中将表单嵌入 Panel 的方法 在 Delphi FireMonkey (FMX) 开发环境中，可以通过调整 `TForm` 和 `TPanel` 组件的属性来实现将一个窗体嵌入到另一个容器组件（如 `TPanel`）中的功能。以下是具体实现方式： #### 方法一：通过设置 TForm.Parent 属性 可以创建一个新的窗体实例并将其父级 (`Parent`) 设置为目标面板。 ```delphi procedure EmbedFormInPanel(const AFormClass: TComponentClass; const TargetPanel: TPanel); var EmbeddedForm: TForm; begin EmbeddedForm := TForm(AFormClass.NewInstance); // 创建新窗体实例 try EmbeddedForm.Create(nil); // 初始化窗体 EmbeddedForm.BorderStyle := TFmxBorderStyle.None; // 移除边框样式[^1] EmbeddedForm.Align := TAlignLayout.Client; // 填充目标面板区域 EmbeddedForm.Parent := TargetPanel; // 将窗体作为子控件附加到目标面板 EmbeddedForm.Visible := True; // 显示窗体 except EmbeddedForm.Free; raise; end; end; ``` 调用此函数时需传递要嵌入的目标窗体类以及承载它的 `TPanel` 实例。 --- #### 方法二：动态加载自定义 Frame 并放置于 Panel 上 如果希望更灵活地管理 UI 结构，则推荐使用 Frames 而非 Forms 来构建可重用界面片段。Frames 是专门设计用于此类场景的理想工具之一。 ```delphi procedure LoadFrameIntoPanel(const AFrameClass: TCustomFrameClass; const TargetPanel: TPanel); var LoadedFrame: TCustomFrame; begin LoadedFrame := AFrameClass.Create(TargetPanel.Owner); // 动态创建帧对象 try LoadedFrame.Parent := TargetPanel; // 添加至指定容器内 LoadedFrame.Align := TAlignLayout.Client; // 自动适配大小布局模式 LoadedFrame.Visible := True; // 确保可见状态正常开启 except FreeAndNil(LoadedFrame); raise; end; end; ``` 这种方法相比直接操作 Form 更加高效且易于维护，因为 Frames 不会像独立运行的应用程序那样具有自己的消息循环机制[^2]。 --- #### 注意事项 - 当把某个窗口设为另一控件的孩子节点之后，其外观表现可能会受到影响，比如标题栏消失等问题。因此通常需要手动修改一些视觉特性参数以适应新的环境需求。 - 如果计划频繁切换不同类型的子页面内容展示效果的话，建议考虑采用 TabControl 或 PageController 类型导航结构替代单纯依赖 Panels 容器的做法[^3]。 ---