delphi - TToolBar：如何摆脱竖线？

Question

当我有一个 TToolbar 并在其上放置非工具按钮控件时，控件中有一个多余的垂直条。我怎样才能摆脱酒吧？

在下图中，工具栏只包含两个工具按钮和一个 TLabel，没有分隔符。注意穿过字母 V 的竖线。

Answer 1

如果我没记错的话，这是由于放置在 TToolBar 中的其他非 TToolButton 控件的透明度句柄，因此，如果您将 TLabel 的“透明”属性设置为 false，则垂直条将消失。

Answer 2

您可能想尝试 JVCL 组件套件（免费）Delphi Jedi。它有很多视觉组件，包括各种面板和按钮。他们还具有渐变色面板和图像按钮，例如。

Answer 3

Delphi XE2 Hot Update 4，仍然有这个错误，我通过以下方式解决这个错误：

1. 设置 TLabel.Autosize := False;
2. TLabel.width := 50; --> 只要确保它比它的标题多，至少 10 像素
3. TLabel.Alignment := taRightJustify

谢谢。