FireMonkey中不继承TTabControl实现Delphi IDE风格标签页的方法

核心入手方向 #

确实可以从OnPaint事件作为核心入口，但需要配合状态管理和鼠标交互逻辑共同实现，不用继承TTabControl的关键是通过自定义绘制覆盖默认标签的显示行为，同时用额外变量跟踪标签状态。

分步实现细节 #

1. 标签状态管理

首先需要给每个TTabItem绑定"内容已修改"的标记，避免直接修改组件属性。可以用TObjectDictionary<TTabItem, Boolean>来存储：

// 窗体级变量
FModifiedTabs: TObjectDictionary<TTabItem, Boolean>;
FCloseButtonRects: array of TRectF; // 存储激活标签的关闭按钮区域，用于鼠标判断

初始化时创建字典，标签页新增时加入默认状态False，内容修改时将对应标签的状态设为True并触发重绘：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FModifiedTabs := TObjectDictionary<TTabItem, Boolean>.Create([doOwnsValues]);
  SetLength(FCloseButtonRects, TabControl1.TabCount);
end;

// 示例：编辑框内容变化时标记标签为已修改
procedure TMainForm.EditContentChange(Sender: TObject);
begin
  if Assigned(TabControl1.ActiveTab) then
  begin
    if not FModifiedTabs.ContainsKey(TabControl1.ActiveTab) then
      FModifiedTabs.Add(TabControl1.ActiveTab, True)
    else
      FModifiedTabs[TabControl1.ActiveTab] := True;
    TabControl1.Repaint;
  end;
end;

2. OnPaint事件自定义绘制

先调用默认绘制保留基础标签样式，再叠加圆点和关闭按钮：

procedure TMainForm.TabControl1Paint(Sender: TObject; Canvas: TCanvas);
var
  I: Integer;
  TabItem: TTabItem;
  TabRect, DotRect, CloseRect: TRectF;
  IsModified: Boolean;
begin
  // 先执行默认绘制，保留标签的基础样式（背景、文字、激活态）
  TabControl1.DefaultDrawTabs(Sender, Canvas);

  // 遍历每个标签页，叠加自定义元素
  for I := 0 to TabControl1.TabCount - 1 do
  begin
    TabItem := TabControl1.Tabs[I];
    TabRect := TabControl1.GetTabRect(I);
    IsModified := FModifiedTabs.ContainsKey(TabItem) and FModifiedTabs[TabItem];

    // 绘制实心圆点（所有已修改的标签，无论是否激活）
    if IsModified then
    begin
      DotRect := RectF(TabRect.Left + 6, TabRect.Top + (TabRect.Height - 6)/2,
        TabRect.Left + 12, TabRect.Top + (TabRect.Height - 6)/2 + 6);
      Canvas.Fill.Color := $FF666666; // 深灰色圆点
      Canvas.FillEllipse(DotRect, 0);
    end;

    // 仅在激活标签上绘制关闭按钮
    if TabItem = TabControl1.ActiveTab then
    begin
      // 计算关闭按钮位置（标签右侧预留18px空间）
      CloseRect := RectF(TabRect.Right - 18, TabRect.Top + 2,
        TabRect.Right - 6, TabRect.Bottom - 2);
      // 绘制按钮背景（可选，增强点击感）
      Canvas.Fill.Color := $FFE0E0E0;
      Canvas.FillRect(CloseRect, 3, 3, AllCorners, 1);
      // 绘制X符号
      Canvas.Fill.Color := $FF333333;
      Canvas.FillText(CloseRect, 'X', False, 1, [], TTextAlign.Center, TTextAlign.Center);
      // 记录按钮区域，供鼠标事件判断
      FCloseButtonRects[I] := CloseRect;
    end;
  end;
end;

3. 关闭按钮的鼠标交互

在OnMouseDown事件中判断点击位置是否在激活标签的关闭按钮区域内，触发关闭逻辑：

procedure TMainForm.TabControl1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
var
  I: Integer;
  ClickPoint: TPointF;
begin
  if Button <> mbLeft then Exit;

  ClickPoint := TPointF.Create(X, Y);
  for I := 0 to TabControl1.TabCount - 1 do
  begin
    if (TabControl1.Tabs[I] = TabControl1.ActiveTab) and
       PtInRect(FCloseButtonRects[I], ClickPoint) then
    begin
      // 移除状态记录并销毁标签页
      FModifiedTabs.Remove(TabControl1.Tabs[I]);
      TabControl1.Tabs[I].Free;
      Break;
    end;
  end;
end;

关键注意点 #

• 每次标签页数量变化时（新增/删除），要同步更新FCloseButtonRects的长度，避免数组越界
• 自定义绘制时要注意坐标计算，适配不同DPI和标签大小
• 如果需要支持鼠标悬停效果，可以在OnMouseMove事件中更新按钮样式并触发重绘

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