Firemonkey中如何向TTabItem的标签区域插入其他控件

云上老周

2026-9-29

实现方案

`TTabControl`的标签头部不支持直接拖入子控件是默认样式限制，你可以通过以下两种方式实现自定义标签内容：

方案1：自定义TTabItem样式（适配性最优）

通过修改控件样式内置额外文本控件，适合全局统一标签样式的场景：

右键点击窗体上的TTabControl，选择「编辑自定义样式」进入样式编辑器
在样式结构树中找到对应TTabItem的header容器节点（默认是TLayout类型）
在该容器内新增TText控件，调整位置、颜色、对齐规则，和原有标题共存
保存样式退出编辑器后，可通过FindStyleResource方法运行时获取该控件修改内容
示例运行时代码：

var
  ExtraTag: TText;
begin
  // 替换为你的目标TTabItem对象名
  ExtraTag := TabItem1.FindStyleResource('自定义的TText控件名') as TText;
  if Assigned(ExtraTag) then
  begin
    ExtraTag.Text := '提示文本';
    ExtraTag.TextColor := TAlphaColors.Red;
  end;
end;

无需修改样式，直接将TTabItem.Header属性赋值为自定义布局容器，按需放入多个文本控件：

var
  HeaderLayout: TLayout;
  TitleText, TagText: TText;
begin
  // 创建标签头部布局容器
  HeaderLayout := TLayout.Create(nil);
  HeaderLayout.Align := TAlignLayout.Client;
  HeaderLayout.Width := 150; // 按需调整标签宽度

  // 主标题文本
  TitleText := TText.Create(HeaderLayout);
  TitleText.Parent := HeaderLayout;
  TitleText.Align := TAlignLayout.Left;
  TitleText.Text := '主标签名';
  TitleText.Margins.Left := 6;
  TitleText.VertAlign := TTextAlign.Center;

  // 额外彩色文本
  TagText := TText.Create(HeaderLayout);
  TagText.Parent := HeaderLayout;
  TagText.Align := TAlignLayout.Right;
  TagText.Text := '[未读]';
  TagText.TextColor := TAlphaColors.OrangeRed;
  TagText.Margins.Right := 6;
  TagText.VertAlign := TTextAlign.Center;

  // 绑定到标签项
  TabItem1.Header := HeaderLayout;
end;