隨著(zhù)office2007的興起，微軟讓我們看到了Ribbon風(fēng)格的窗體，現在很多軟件也都開(kāi)始使用Ribbon風(fēng)格。
那么我們如果要自己開(kāi)發(fā)，應當怎么做呢？本文就是為大家解開(kāi)這個(gè)疑團的。
首先，Delphi本身并沒(méi)有Ribbon風(fēng)格的窗口可以直接拿來(lái)使用，而市面上很多類(lèi)似于Ribbon的風(fēng)格都是用截圖法做出來(lái)的，那樣做很麻煩，而且對于圖片的控制要求非常高。這樣無(wú)疑是增加了軟件的成本，這里介紹的方法是使用第三方控件，DevExpress Bar 6 來(lái)完成Ribbon風(fēng)格的界面。
首先下載并安裝DevExpress Bar 6，注意必須是6，以往的版本沒(méi)有Ribbon風(fēng)格，然后將它安裝到Delphi2007中。接下來(lái)就能夠開(kāi)始進(jìn)入正題了。
一、拖放必要的控件
這些控件都是Ribbon必備的，將它們都拖到窗體上。
拖上后的界面如圖所示，可以看到，Ribbon的Tab已經(jīng)顯示出來(lái)了，但還不是我們要的效果。接下來(lái)，繼續設置控件的屬性。
設置dxRibbon的BarManager屬性為DxBarManager控件，設置dxRibbonPopupMenu的Ribbon屬性為dxRibbon控件。雙擊dxBarManager控件，然后新建一個(gè)ToolBar。
然后在Object Inspector中會(huì )多出一個(gè)ToolBar，名稱(chēng)為dxBarManager1Bar1。設置dxRibbon的QuickAccessToolBar.ToolBar屬性為dxBarManager1Bar1，馬上可以看到，ApplicationMenu已經(jīng)顯示出來(lái)了。
右鍵點(diǎn)擊ApplicationMenu右邊的小箭頭，添加幾個(gè)Button。然后再雙擊dxBarManager，添加ToolBar，在dxRibbon上點(diǎn)擊右鍵，選擇Tabs Editor，在彈出的窗口中選中Tab。雙擊Groups屬性，添加一個(gè)Group，然后將新增的ToolBar關(guān)聯(lián)到Group中。得到的程序界面如圖所示
現在運行一下程序，看看效果
大致已經(jīng)看得到效果了，不過(guò)和office2007還有一點(diǎn)不同，我們得把標題欄去掉，讓標題欄的文字顯示在Ribbon中。這個(gè)地方需要一個(gè)小技巧。按F12切換到代碼視圖，在uses下添加 dxRibbonForm的引用，把窗體的基類(lèi)從TForm修改為T(mén)DxRibbonForm。把dxRibbon控件的SupportNonClientDrawing屬性設為T(mén)rue。再次運行程序。
現在看到的效果就是Ribbon了，但是ApplicationMenu點(diǎn)下去還是沒(méi)有東西，我們要在A(yíng)pplicationMenu下加一個(gè)菜單。雙擊dxBarApplicationMenu控件的ItemLinks屬性，在屏幕左上方會(huì )發(fā)現一個(gè)小窗口，這個(gè)窗體就是用來(lái)做ApplicationMenu的，向里面添加按鈕和組即可。
再次運行程序，點(diǎn)擊左上角的圓形圖案，即可看到ApplicationMenu，我們的Ribbon窗體制作也到此結束了。
聯(lián)系客服
