加载程序到Rad Studio时CustomTitleBar高度异常重置为超大值

这不是正常现象，大概率是你遗漏了IDE设计模式下的相关配置，或是自定义标题栏的初始化逻辑没覆盖到设计时场景。

可能的原因及解决办法 #

• 设计时未禁用自定义逻辑：Delphi IDE加载窗体时会触发部分组件事件，你的resize事件高度设置可能在设计时没生效，或是自定义标题栏代码在设计模式下仍执行，导致高度异常。可以在代码里判断是否处于设计模式：

  if not (csDesigning in ComponentState) then
  begin
    // 放置自定义标题栏高度设置代码
  end;
  

• 窗体属性未锁定或初始化：检查窗体BorderStyle、自定义标题栏的Height属性是否被IDE自动重置。可以在窗体OnCreate事件里强制初始化高度，确保设计时加载也能应用：

  procedure TMainForm.FormCreate(Sender: TObject);
  begin
    // 替换为你需要的高度值
    CustomTitleBar.Height := 32;
  end;
  

• 自定义组件设计时支持缺失：如果用了第三方自定义标题栏组件，可能组件本身没处理好设计时渲染逻辑。可以手动在IDE里选中标题栏组件，在Object Inspector中设置Height后右键锁定属性。

你之前用resize事件解决了运行时问题，但设计时resize事件不会被IDE触发，所以需要单独处理设计时的初始化逻辑，确保IDE加载窗体时标题栏高度能正确设置。

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