转自：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、若不弹出工程菜单，在界面上去掉此控件即可。