delphi - TToolBar: 垂直バーを取り除く方法は?

Question

TToolbar にツールボタン以外のコントロールを配置すると、コントロールを通る余分な垂直バーが表示されます。どうすればバーを取り除くことができますか?

以下の画像では、ツールバーには 2 つのツールボタンと TLabel のみが含まれ、セパレータは含まれていません。文字 V を通る縦棒に注目してください。

Answer 1

正しく思い出せば、これはTToolBarに配置されている他の非TToolButtonコントロールの透明度のハンドルによるものです。このため、TLabelの「Transparent」プロパティをfalseに設定すると、垂直バーが消えます。

Answer 2

JVCLコンポーネントスイート（無料）DelphiJediを試してみることをお勧めします。あらゆる種類のパネルやボタンなど、多くの視覚的なコンポーネントがあります。また、グラデーションカラーのパネルや、例として画像ボタンがあります。

Answer 3

Delphi XE2 Hot Update 4、まだこのバグがあります。次の方法でこのバグを回避します。

1. TLabel.Autosize の設定:= False;
2. TLabel.幅:= 50; --> 少なくとも 10 ピクセル以上、キャプションよりも大きいことを確認してください
3. TLabel.Alignment := taRightJustify

ありがとう。