Delphi：TCoolBar中的Styain TMainMenu和TToolBar

Question

我正在尝试在Delphi XE3中创建一个应用程序菜单和工具栏，如下所示（来自我的程序）：

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

1. 创建新的VCL表单应用程序
2. 添加TMainMenu并插入文件/编辑/等的模板菜单
3. 在表单
中添加TCoolBar
4. 将TToolBar添加到TCoolBar
5. 为每个文件/编辑/等添加TToolButton到TToolBar。并选择“组属性”
6. 从表单中删除菜单属性（因此不显示任何程序菜单）
7. 将每个TToolButton的MenuItem属性分配给相应的文件/编辑/等。
8. 将第二个TToolBar添加到第一个<{li>下方的TCoolBar

   这是它的样子：

   

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

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

   我尝试过Raize Components，TMS Advanced Toolbars＆amp;菜单，我正在尝试使用DevExpress VCL组件。他们似乎都没有提供解决方案，但也许我还不熟悉他们还没弄清楚。

Answer 1

Delphi附带了ActionBands演示，可以向您展示如何使用TActionMainMenuBar（和TActionToolBar）为菜单“开箱即用”获取此外观。只需在演示中将Style菜单更改为XP Style：

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