0
我添加一個帶有一些標準Delphi組件的工具欄到我的應用程序。不幸的是,愚蠢的箭頭是第一個字形(有人甚至知道它是什麼?)如何將工具欄按鈕的字形設置爲空白?
我想完全摧毀它,或者至少,將itcs圖標設置爲空白,以便它融入工具欄。
我該怎麼做?
我需要一些可以執行兩次而不會導致異常的代碼。謝謝
我添加一個帶有一些標準Delphi組件的工具欄到我的應用程序。不幸的是,愚蠢的箭頭是第一個字形(有人甚至知道它是什麼?)如何將工具欄按鈕的字形設置爲空白?
我想完全摧毀它,或者至少,將itcs圖標設置爲空白,以便它融入工具欄。
我該怎麼做?
我需要一些可以執行兩次而不會導致異常的代碼。謝謝
TToolButton
從結合其ImageIndex
屬性與封閉的工具欄的Images
屬性中獲取其圖像,該屬性指的是TImageList
。要使工具欄按鈕沒有圖像,請分配ImageIndex := -1
。
要在設計時從TSpeedButton
中刪除字形,請選擇該按鈕,然後在對象檢查器中選擇Glyph
屬性。按刪除清除該屬性。要在運行時執行相同操作,請指定Button.Glyph := nil
。
如果您有預先製作的工具欄,如TMediaPlayer
或TDBNavigator
,則無法自定義按鈕。他們總是顯示在控件中硬編碼的箭頭字形。不過,您可以選擇隱藏或顯示某些按鈕。如果您只是爲了獲得一排按鈕而放置控件,並且無意使用它們來播放媒體或導航數據庫,則不要使用該控件。只需放置一個TPanel
並在其上放置獨立按鈕。
如果您提到「愚蠢的箭頭」,我想知道是否有像「智能箭頭」之類的東西。 – 2010-09-19 08:36:43
沒關係 - 你能解釋一下你想達到的目標嗎?我不知道你的意思。 – 2010-09-19 08:37:25