Delphi：在TCoolBar中设置TMainMenu和TToolBar的样式

Question

我试图在Delphi XE3中创建一个应用程序菜单和工具栏，如下所示（从我拥有的程序中）：

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

1. 创建一个新的VCL Forms应用程序
2. 添加一个TMainMenu并为文件/编辑/等插入模板菜单。
3. 将TCoolBar添加到窗体
4. 将TToolBar添加到TCoolBar
5. 为每个File / Edit / etc添加一个TToolButton到TToolBar 。 并选择组属性
6. 从窗体中删除Menu属性（因此不会显示程序菜单）
7. 将每个TToolButton的MenuItem属性分配给相应的File / Edit / 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 。