轉自：http://blog.163.com/bin0315@126/blog/static/406626422012844271447/
Delphi2010及其以後的版本，已經有了RIBBOB風格的窗體控件，但現在用的還不多吧。這裏介紹的方法是使用第三方控件DevExpressBar來完成Ribbon風格的界面。
首先下載並安裝DevExpress,版本最好是4.6以後的吧，最新的已經出了DevExpressVCL.All.v51，支持D2010.
設計步驟：
一、拖放必要的控件
這些控件都是Ribbon必備的，將它們都拖到窗體上。
拖上後的界面如圖所示，可以看到，Ribbon的Tab已經顯示出來了，但還不是我們要的效果。接下來，繼續設置控件的屬性。
設置dxRibbon的BarManager屬性爲dxBarManager1控件，
設置dxRibbonPopupMenu的Ribbon屬性爲dxRibbon1控件,BarManager屬性爲dxBarManager1控件。
二、設置快速啓動欄
雙擊dxBarManager控件，然後新建一個ToolBar。
設置dxRibbon的QuickAccessToolBar.ToolBar屬性爲dxBarManager1Bar1，馬上可以看到，ApplicationMenu已經顯示出來了。
右鍵點擊ApplicationMenu右邊的小箭頭，添加幾個Button。若不想顯示下拉箭頭，則設置Ribbon下的屬性PopupMenuItems中的屬性全部爲False即可。
三、添加主菜單欄
dxRibbon上點擊右鍵，可以增加Tab,Group。得到的程序界面如圖所示
現在運行一下程序，看看效果
四、設置窗體整體風格
大致看得到效果了，不過和office2007還有一點不同，我們得把標題欄去掉，讓標題欄的文字顯示在Ribbon中。這個地方需要一個小技巧。
1、 在uses下添加 dxRibbonForm的引用，
2、 把窗體的基類從TForm修改爲TDxRibbonForm。
3、 把dxRibbon控件的SupportNonClientDrawing屬性設爲True。再次運行程序。
五、設置窗體工程菜單
1、現在看到的效果就是Ribbon了，但是ApplicationMenu點下去還是沒有東西，我們要在ApplicationMenu下加一個菜單。雙擊dxBarApplicationMenu控件的ItemLinks屬性，在屏幕左上方會發現一個小窗口，這個窗體就是用來做ApplicationMenu的，向裏面添加按鈕和組即可。
再次運行程序，點擊左上角的圓形圖案，即可看到ApplicationMenu
2、修改窗體左上角圖片，在dxRibbon1的ApplicatonButton中設置即可。
3、若不彈出工程菜單，在界面上去掉此控件即可。