Delphi FMX窗体嵌入CLAP插件宿主HWND失败，求解决方案及可行性分析

我正在开发一款CLAP插件（供其他应用调用的库），API提供了父HWND用于将插件窗体嵌入宿主应用窗体。使用VCL窗体时操作简单：

myForm.ParentWindow := HWNDfromApp; 

即可完成嵌入。但FMX窗体无该成员，我尝试了以下代码：

selfHWND := FMX.Platform.Win.FmxHandleToHWND(self.Handle);
SetWindowLong(selfHWND, GWL_STYLE, GetWindowLong(selfHWND, GWL_STYLE) or WS_CHILD);
Winapi.Windows.SetParent(selfHWND, HWNDfromApp);

该方案无效：窗体未嵌入父窗体，而是在左上角打开，且插件不久后崩溃，报错“duplicates not allowed”。请问还有其他可行方案吗？或者在被外部应用调用的库中使用FMX窗体本身就是不合理的选择？

可行解决方案 #

1. 调整FMX窗口操作顺序与样式设置 #

FMX的窗口管理逻辑和VCL存在差异，直接修改样式再设置父窗口容易触发内部冲突，调整操作流程并补充必要属性：

var
  SelfHWND: HWND;
  WindowStyle: DWORD;
begin
  SelfHWND := FMX.Platform.Win.FmxHandleToHWND(Self.Handle);
  // 先移除弹窗样式，再添加子窗口及必要裁剪属性
  WindowStyle := GetWindowLong(SelfHWND, GWL_STYLE);
  WindowStyle := (WindowStyle and not WS_POPUP) or WS_CHILD or WS_CLIPSIBLINGS or WS_CLIPCHILDREN;
  SetWindowLong(SelfHWND, GWL_STYLE, WindowStyle);
  // 设置父窗口后强制同步窗口状态
  Winapi.Windows.SetParent(SelfHWND, HWNDfromApp);
  SetWindowPos(SelfHWND, 0, 0, 0, 0, 0, SWP_NOZORDER or SWP_NOSIZE or SWP_FRAMECHANGED);
  // 通知FMX更新内部样式状态
  Self.UpdateStyle;
end;

2. 改用TStyledForm作为载体 #

普通FMX窗体默认带有独立窗口的初始化逻辑，TStyledForm的设计更适配嵌入场景，能减少原生窗口样式的冲突概率，搭配上述API调整后嵌入稳定性会提升。

3. VCL+FMX混合方案 #

如果纯FMX方案仍不稳定，可以用VCL窗体作为嵌入宿主的载体，在VCL窗体中放置TFMXContainer控件加载FMX界面内容（需在项目中启用FMX与VCL交互支持）。这种方式既利用VCL成熟的窗口嵌入能力，又保留FMX的UI设计优势：

// VCL窗体嵌入宿主HWND
VCLForm.ParentWindow := HWNDfromApp;
// 在VCL窗体中加载FMX框架
FMXContainer1.LoadFromClass(TMyFMXFrame);

关于FMX窗体在插件库中的合理性 #

FMX本身支持插件场景，但由于跨平台设计的抽象层，Windows平台下直接操作原生HWND容易触发内部状态不一致（比如FMX窗口管理与Win32原生窗口的逻辑冲突），相比VCL需要更多兼容处理。如果插件仅面向Windows平台，优先选择VCL会更省心；如果需要跨平台支持，FMX是可行的，但需要严格遵循FMX的窗口生命周期规则，避免直接绕过抽象层操作原生HWND。

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