delphi - ShowCaption が True に設定されていると、TToolBar がボタンの幅を自動的に計算するのはなぜですか?

Question

TToolBarメイン フォームの右側にを 2 つ配置する必要があるため、位置合わせのために 3 つ配置し、その中TPanelに s を配置TToolBarします。私はtoolbuttons に昨日と同じ幅を持たせようとしましたが、役に立ちませんでした。ここに私が持っているもののスクリーンショットがあります:

ShowCaptionが に設定されている場合True、ツールバーがボタンの幅を自動的に計算することがわかりました。私の質問は、なぜですか、これを無効にする方法は?

Answer 1

このアプローチを見てください：

1. すべてのボタンの Autosize を False に設定します。
2. フォームの OnCreate イベント内で次を呼び出します。SendMessage(ToolBar3.Handle,TB_SETBUTTONWIDTH, 0, MAKELPARAM(0, <DEFAULT_WIDTH_THAT_YOU_WANT_TO_SET>));
3. 上記の呼び出しの前に、どのボタンの Visible プロパティも変更しないでください。表示されていないボタンでは失敗するためです。
4. また、TB_SETBUTTONWIDTH メッセージの uses リストに「CommCtrl」があることを確認してください。

詳細: http://zarko-gajic.iz.hr/ttoolbars-ttoolbutton-autosize-width-issues-empty-caption/

Answer 2

オブジェクト インスペクターを使用してボタンの幅を静的な値で設定するか、formcreate、onpaint、onresize などを使用して値を動的に設定できます。