TToolBar：如何摆脱竖条？

Question

当我有一个TToolbar并且我在其上放置了非工具按钮控件时，通过控件有一个多余的垂直条。我该如何摆脱酒吧？

在下图中，工具栏仅包含两个工具按钮和一个TLabel，没有分隔符。注意垂直条穿过字母V.

Answer 1

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

Answer 2

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

Answer 3

Delphi XE2 Hot Update 4，仍然有这个bug，我通过以下方法解决这个问题：

1. 设置TLabel.Autosize：= False;
2. TLabel.width：= 50; - ＆GT;只需确保它超过其标题，至少10像素
3. TLabel.Alignment：= taRightJustify

感谢。