如何将工具栏按钮的字形设置为空白？

Question

我在我的应用程序中添加了一些带有一些标准Delphi组件的工具栏。不幸的是，愚蠢的箭头是第一个字形（有人甚至知道它是什么吗？）

我想完全销毁它，或者至少将itcs图标设置为空白，以便它与工具栏混合。

我该怎么做？

我需要一些可以执行两次而不会导致异常的代码。感谢

Answer 1

TToolButton通过将其ImageIndex属性与封闭工具栏的Images属性相结合来获取其图像，该属性引用TImageList。要使工具栏按钮没有图像，请指定ImageIndex := -1。

要在设计时从TSpeedButton删除字形，请选择该按钮，然后在对象检查器中选择Glyph属性。按 Del 清除该属性。要在运行时执行相同操作，请指定Button.Glyph := nil。

如果您有预制的工具栏，例如TMediaPlayer或TDBNavigator，则无法自定义按钮。它们始终显示控件中硬编码的箭头字形。但是，您可以选择隐藏或显示某些按钮。如果您将控件放置为获取一行按钮并且无意使用它们来播放媒体或导航数据库，则不要使用该控件。只需放置TPanel并在其上放置独立按钮。