Delphi TToolBar tbsSeparator 中多余的竖线

Question

这个问题已经有答案了:

Can Delphi themed toolbars have dividers that are centred between their tool buttons? (3 个回答)

已关闭 9 年前。

我在 Windows 2012 R2 之上使用 Delphi XE6，并尝试创建带有工具栏的应用程序。然而，我遇到了编译应用程序的问题，在我可能添加的任何分隔符的左侧有一个垂直的多余栏。

This Question 中均描述了此问题和 This Other Question ，但是我并没有尝试使用任何其他花哨的控件 - 我只是使用“新按钮”和“新分隔符”来添加项目。尽管如此，我还是尝试了建议的修复方法，但没有成功。

我的示例应用程序已创建如下:

1. 新的 VCL 表格申请
2. 添加TToolBar
3. 选择工具栏1
4. 右键单击，选择“新建按钮”
5. 右键单击，选择“新建按钮”
6. 右键单击，选择“新建分隔符”
7. 右键单击，选择“新建按钮”
8. 运行

这就是应用程序的样子

我尝试更改 TToolBar 本身的每个可能适用的属性(包括将透明设置为 False)以及 ToolBar3(设置为 tbsSeparator)，但我似乎无法摆脱这个垂直条。我还尝试向表单添加 TXPManifest，但这没有什么区别。

唯一似乎有所不同的是，如果我将 Separator Visible 属性设置为 False - 该行会消失，但 Separator 也会消失，所以这没有任何帮助。

This thread 中也描述了我遇到的问题，我可以向读者保证，我没有对分隔符的宽度进行任何更改 - 这都是默认的。

有人对我如何解决这个问题有任何建议吗？

就其值(value)而言 - 我的 Delphi 表单是这样的 - 您可以看到除了受支持的控件之外，我没有使用任何花哨的控件:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 112
  ClientWidth = 382
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 382
    Height = 29
    Caption = 'ToolBar1'
    TabOrder = 0
    Transparent = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = 'ToolButton1'
      ImageIndex = 0
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Caption = 'ToolButton2'
      ImageIndex = 1
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 54
      Top = 0
      Caption = 'ToolButton4'
      ImageIndex = 3
    end
  end
  object XPManifest1: TXPManifest
    Left = 40
    Top = 48
  end
end

Answer 1

由于 TToolbar 是 Microsoft Windows Rebar32 Control 的包装，因此它看起来与普通 Windows 应用程序完全相同。 为什么不删除这些分隔符，这样您就不会再看到它们了。