Ribbon_窗體_實現Ribbon風格的窗體

隨著office2007的興起，微軟讓我們看到了Ribbon風格的窗體，現在很多軟件也都開始使用Ribbon風格。
那么我們如果要自己開發，應當怎么做呢？本文就是為大家解開這個疑團的。

首先，delphi本身并沒有Ribbon風格的窗口可以直接拿來使用，而市面上很多類似于Ribbon的風格都是用截圖法做出來的，那樣做很麻煩，而且對于圖片的控制要求非常高。這樣無疑是增加了軟件的成本，這里介紹的方法是使用第三方控件，DevExpress Bar 6 來完成Ribbon風格的界面。

首先下載并安裝DevExpress Bar 6，注意必須是6，以往的版本沒有Ribbon風格，然后將它安裝到Delphi2007中。接下來就能夠開始進入正題了。

一、拖放必要的控件

dxBarManager ,? dxBarApplicationMenu　,?? dxRibbonPopupMenu? ,? dxBarScreenTipRepository? ,? dxRibbonStatusBar　　

??

這些控件都是Ribbon必備的，將它們都拖到窗體上。

拖上后的界面如圖所示，可以看到，Ribbon的Tab已經顯示出來了，但還不是我們要的效果。

接下來， 繼續

?a. 設置控件的屬性。
　　1. 設置dxRibbon的BarManager屬性為DxBarManager控件，

????? 2. 設置dxRibbonPopupMenu的Ribbon屬性為dxRibbon控件。

?b. 雙擊dxBarManager控件，然后 新建一個ToolBar。

???? 然后在Object Inspector中會多出一個ToolBar? (Custom?1)?，名稱為 dxBarManager1Bar1。

c. 設置dxRibbon 的 QuickAccessToolBar.ToolBar 屬性為 dxBarManager1Bar1，

??? 馬上可以看到，ApplicationMenu已經顯示出來了。

d. 右鍵點擊ApplicationMenu右邊的小箭頭，添加幾個Button。

?? 1. 然后再雙擊dxBarManager，添加ToolBar (Custom 2 ) ，

?? 2. 在dxRibbon上點擊右鍵，選擇Tabs Editor，在彈出的窗口中選中Tab。雙擊Groups屬性，添加一個Group，然后將新增的ToolBar關聯到Group中。

得到的程序界面如圖所示

現在運行一下程序，看看效果

大致已經看得到效果了，不過和office2007還有一點不同，我們得把標題欄去掉，讓標題欄的文字顯示在Ribbon中。這個地方需要一個小技巧。按F12切換到代碼視圖，在uses下添加 dxRibbonForm的引用，把窗體的基類從TForm修改為TDxRibbonForm。

把dxRibbon控件的SupportNonClientDrawing屬性設為True。再次運行程序。

現在看到的效果就是Ribbon了，但是ApplicationMenu點下去還是沒有東西，我們要在ApplicationMenu下加一個菜單。雙擊dxBarApplicationMenu控件的ItemLinks屬性，在屏幕左上方會發現一個小窗口，這個窗體就是用來做ApplicationMenu的，向里面添加按鈕和組即可。

?

轉載于:https://www.cnblogs.com/m0488/p/3140152.html

總結

以上是生活随笔為你收集整理的Ribbon_窗体_实现Ribbon风格的窗体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。