Delphi:TCoolBar 中的 TMainMenu 和 TToolBar 样式

Question

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

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

1. 创建新的 VCL Forms 应用程序
2. 添加TMainMenu并插入文件/编辑等模板菜单。
3. 将 TCoolBar 添加到表单
4. 将 TToolBar 添加到 TCoolBar
5. 为每个文件/编辑/等添加一个TToolButton到TToolBar。并选择“组”属性
6. 从表单中删除 Menu 属性(这样就不会显示程序菜单)
7. 将每个TToolButton的MenuItem属性分配给相应的文件/编辑/等。
8. 将第二个 TToolBar 添加到第一个 TToolBar 下方的 TCoolBar

它看起来像这样:

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

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

我已经尝试过 Raize 组件、TMS 高级工具栏和菜单，并且正在尝试 DevExpress VCL 组件。他们似乎都没有提供解决方案，但也许我对他们还不够熟悉，还没有弄清楚。

Answer 1

Delphi 附带了 ActionBands演示可以向您展示如何使用TActionMainMenuBar为您的菜单“开箱即用”获得这种外观。 (和TActionToolBar)。只需在演示中将 Style 菜单更改为 XP Style 即可:

您的其余步骤似乎已经完成。对于菜单项和工具栏按钮上的图像，请参阅演示中菜单和工具栏上 ImageList 组件与菜单和工具栏上的 TActions 的结合使用。