运行时创建TTitleBarPanel面板空白，无标题及按钮显示问题排查

问题描述 #

通过自定义CreateTitleBarPanel过程在运行时创建TTitleBarPanel，调用后标题栏区域成功创建，窗体原有组件也已下移避免被覆盖，但存在以下异常：

• TTitleBarPanel面板显示空白，无标题、系统图标
• 添加的F按钮不显示
• 仅左上角点击可调出菜单

测试步骤：

• 新建窗体并添加一个按钮（Top和Right设为8）
• 在窗体OnCreate事件中调用CreateTitleBarPanel(self)，运行后出现上述问题

相关代码 #

procedure CreateTitleBarPanel(fname:tform);
var titlebarpanel:ttitlebarpanel;
    F1button:tbutton;
    i:integer;
begin
     fname.customtitlebar.enabled:=true;
     titlebarpanel:=ttitlebarpanel.create(fname);
     fname.customtitlebar.control:=titlebarpanel;
     fname.customtitlebar.ShowCaption:=true;
     fname.customtitlebar.ShowIcon:=true;
     F1button:=tbutton.create(titlebarpanel);
     F1button.top:=0;
     F1button.height:=titlebarpanel.height;
     F1button.width:=F1button.height;
     F1button.caption:='F';
     F1button.left:=100;
     //move all form components down to match the titlebar height
     for i:=0 to fname.ComponentCount-1 do
     begin
          try
             (fname.Components[i] as TControl).top:=(fname.Components[i] as TControl).top+fname.customtitlebar.height;
          except
                //control does not have a top property, so skip it
          end;
     end;
     //this seems to report the button position correctly at (0,100) with width and height both 45
     showmessage('DEBUG: F1button.top='+inttostr(F1button.top)+' F1button.left='+inttostr(F1button.left)+' F1button.height='+inttostr(F1button.height)+' F1button.width='+inttostr(F1button.width));
end;

问题原因与修复方案 #

1. 未设置TTitleBarPanel的父组件与对齐方式 #

创建TTitleBarPanel后，必须将其Parent关联到窗体，并设置Align属性为alTop，确保它占据标题栏区域并正确渲染：

titlebarpanel := ttitlebarpanel.create(fname);
titlebarpanel.Parent := fname; // 新增：关联父组件
titlebarpanel.Align := alTop;  // 新增：设置顶部对齐
fname.customtitlebar.control := titlebarpanel;

2. TCustomTitleBar属性设置顺序错误 #

需先关联自定义控件，再启用CustomTitleBar，否则系统图标、标题等元素无法正确加载：

// 调整顺序：先初始化面板，再启用自定义标题栏
titlebarpanel := ttitlebarpanel.create(fname);
titlebarpanel.Parent := fname;
titlebarpanel.Align := alTop;
fname.customtitlebar.control := titlebarpanel;
fname.customtitlebar.enabled := true; // 移到关联控件之后
fname.customtitlebar.ShowCaption := true;
fname.customtitlebar.ShowIcon := true;

3. 按钮的父组件显式确认 #

虽然构造函数传入了父组件，但显式设置Parent可避免潜在的关联问题，同时确保按钮可见：

F1button := tbutton.create(titlebarpanel);
F1button.Parent := titlebarpanel; // 显式关联父面板
F1button.Visible := True; // 显式设置可见性

4. 组件下移逻辑优化 #

原代码遍历Components会包含非可视化组件，改为遍历Controls集合仅处理可视化控件：

for i := 0 to fname.ControlCount - 1 do
begin
    if fname.Controls[i] is TControl then
    begin
        fname.Controls[i].Top := fname.Controls[i].Top + fname.CustomTitleBar.Height;
    end;
end;

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