SDI项目中Delphi DevExpress运行时将TForm停靠到TdxDockPanel的方法

开发者阿泽

2026-6-29

解决Delphi中TdxDockPanel停靠Form的异常及实现方案

异常原因分析

你遇到的EInvalidOperation异常，核心原因是TdxDockPanel尚未建立有效的父窗口关联就调用了Form的Dock方法，且标准VCL的Dock方法与DevExpress的DockPanel组件适配性不佳，直接调用会导致窗口层级关联错误。

修正后的实现代码

替换你原有的dockme过程，使用以下经过验证的代码：

procedure Tf_console.dockme(mform: TForm);
var
  Apanel: TdxDockPanel;
begin
  // 创建DockPanel，指定主窗体为Owner
  Apanel := TdxDockPanel.Create(Self);
  try
    // 配置DockPanel属性
    Apanel.Caption := mform.Caption; // 同步Form标题
    Apanel.CaptionButtons := [cbClose];
    Apanel.AllowFloating := False;
    // 将DockPanel停靠到DockSite，建立父窗口关联
    Apanel.DockTo(dxDockSite1, dtClient, 0);
    // 关键：通过设置Parent关联Form与DockPanel，替代标准Dock方法
    mform.Parent := Apanel;
    // 设置Form自动填满DockPanel区域
    mform.Align := alClient;
    // 可选：隐藏Form标题栏，避免与DockPanel标题栏重复
    mform.BorderStyle := bsNone;
    // 显示Form和DockPanel
    mform.Show;
    Apanel.Show;
  except
    Apanel.Free;
    raise;
  end;
end;

关键修正点说明

替换Dock方法为设置Parent：DevExpress的TdxDockPanel作为容器，直接设置Form的Parent属性更适配组件逻辑，避免标准Dock方法的层级错误。
确保DockPanel正确停靠：Apanel.DockTo(dxDockSite1, dtClient, 0)执行后，DockPanel会自动关联到dxDockSite1的父窗口（主窗体），解决“无父窗口”的异常。
设置Form的Align属性：将Form的Align设为alClient，让Form自动填满DockPanel的区域，实现完整的停靠显示效果。
可选优化标题栏：保留Form标题栏会与DockPanel的标题栏重复，设置BorderStyle := bsNone可优化视觉体验。