要實現透明按鈕,共需要三個控件-image、label、bevel。其中image控件是為了突出透明的效果而放置的(做為背景),label則是顯示按鍵上的字。而bevel則是顯示出一個立體框。 (通過這個控件可以實現鼠標移到按鈕上時顯示出凸出的效果)下面我們就來看看具體的步驟吧。
1、 請先在delphi6.0中建一個工程文件
2、 請先選擇一個圖片,並註意其大小。然後將窗體調成與圖片一樣大小即可。
3、 然後在窗體上放置一個image控件,將其Align屬性調為alclient,這樣圖片的大小便與窗體的大小一模一樣可以做為背景了。然後選擇picture屬性並點擊小按鈕,在彈出的窗口中按下load鍵選擇你所要做為背景的圖片。
4、 接著在窗體上再放置一個label控件,合理設置按鈕的文字內容及字體大小後。單擊Transparent屬性這樣便將label設為了透明。
5、 最後在窗體上放置一個bevel控件。將shape屬性設為bsBOX,然後將style屬性設為bsRaise(這樣為突然出效果),visible屬性改為false(這樣程序在運行時該控件不可見)。
6、 合理設置label與bevel控件的位置,使得bevel與label控件的位置及位置剛剛好一致,假如您覺得使用鼠標調整位置比較難。可以用Ctrl+箭頭來微移控件,用Shift+箭頭微調控件的大小。
下面我們就開始編程吧,請在代碼窗口中設置下列事件及語句。
另外為了保證透明按鈕看起來不是很單調您還可以在label控件附近放一個圖標,這樣可以讓使用者看起來更加明了。