Devexpress Dxribbon风格窗体设计

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