Как установить глиф для кнопки на панели инструментов?

Question

Я добавляю в свое приложение панель инструментов с некоторыми стандартными компонентами Delphi. К сожалению, глупая стрелка - это первый глиф (кто-нибудь даже знает, для чего он нужен?)

Я хотел бы уничтожить его полностью или, по крайней мере, установить значок itcs в пустую, чтобы он сливался с панелью инструментов ,

Как я могу это сделать?

Мне нужен код, который можно выполнить дважды, не вызывая исключения. Благодаря

Answer 1

TToolButton получает изображение от объединения его свойства ImageIndex с Images собственности вмещающих панели инструментов, которая относится к TImageList. Чтобы кнопка на панели инструментов не имела изображения, назначьте ImageIndex := -1.

Чтобы удалить глиф из TSpeedButton во время разработки, нажмите кнопку, а затем выберите объект Glyph объекта Object Inspector. Нажмите Del, чтобы освободить объект. Чтобы сделать то же самое во время выполнения, назначьте Button.Glyph := nil.

Если у вас есть готовая панель инструментов, например TMediaPlayer или TDBNavigator, то вы не можете настроить кнопки. Они всегда показывают глифы стрелки, жестко закодированные в элементе управления. Однако вы можете скрыть или показать определенные кнопки. Если вы поместили элемент управления только для того, чтобы получить ряд кнопок и не намерены использовать их для воспроизведения мультимедиа или навигации по базе данных, тогда не используйте этот элемент управления. Просто разместите TPanel и положите на него автономные кнопки.