Delphi:TCoolBar中的Styain TMainMenu和TToolBar

Question

我正在尝试在Delphi XE3中创建一个应用程序菜单和工具栏,如下所示(来自我的程序):

我可以通过执行以下操作来复制此外观的一部分:

1. 创建一个新的VCL Forms应用程序
2. TMainMenu为File/Edit/etc 添加和插入模板菜单.
3. 添加TCoolBar到表单
4. 添加TToolBar到TCoolBar
5. 一个添加TToolButton到TToolBar每个文件/编辑/ etc.并选择Group属性
6. 从表单中删除菜单属性(因此没有显示程序菜单)
7. 将每个的MenuItem属性分配TToolButton给相应的文件/编辑/等.
8. 添加第二个TToolBar到TCoolBar第一个下

这是它的样子:

它有点类似,但仍缺少所有样式元素来修改新应用程序菜单的外观.

我的问题是,有没有人知道如何实现类似的外观,也许与第三方组件库？原始开发人员似乎可能使用了第三方VCL库.除了样式菜单和我之外,我还喜欢投影TCoolBar.

我已经尝试过Raize Components,TMS Advanced Toolbars&Menus,我正在尝试使用DevExpress VCL组件.他们似乎都没有提供解决方案,但也许我还不熟悉他们还没弄清楚.

Answer 1

Delphi附带了一个ActionBands演示,可以向您展示如何使用TActionMainMenuBar(和TActionToolBar)为菜单"开箱即用"获得此外观.只需将Style菜单更改XP Style为演示:

其余的步骤看起来非常完整.对于菜单项和工具栏按钮上的图像,请参阅演示中与菜单和工具栏ImageList相关联的组件的使用TActions.