2010-09-19 36 views
0

我添加一個帶有一些標準Delphi組件的工具欄到我的應用程序。不幸的是,愚蠢的箭頭是第一個字形(有人甚至知道它是什麼?)如何將工具欄按鈕的字形設置爲空白?

我想完全摧毀它,或者至少,將itcs圖標設置爲空白,以便它融入工具欄。

我該怎麼做?

我需要一些可以執行兩次而不會導致異常的代碼。謝謝

+0

如果您提到「愚蠢的箭頭」,我想知道是否有像「智能箭頭」之類的東西。 – 2010-09-19 08:36:43

+2

沒關係 - 你能解釋一下你想達到的目標嗎?我不知道你的意思。 – 2010-09-19 08:37:25

回答

0

TToolButton從結合其ImageIndex屬性與封閉的工具欄的Images屬性中獲取其圖像,該屬性指的是TImageList。要使工具欄按鈕沒有圖像,請分配ImageIndex := -1

要在設計時從TSpeedButton中刪除字形,請選擇該按鈕,然後在對象檢查器中選擇Glyph屬性。按刪除清除該屬性。要在運行時執行相同操作,請指定Button.Glyph := nil

如果您有預先製作的工具欄,如TMediaPlayerTDBNavigator,則無法自定義按鈕。他們總是顯示在控件中硬編碼的箭頭字形。不過,您可以選擇隱藏或顯示某些按鈕。如果您只是爲了獲得一排按鈕而放置控件,並且無意使用它們來播放媒體或導航數據庫,則不要使用該控件。只需放置一個TPanel並在其上放置獨立按鈕。