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

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

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

创建一个新的VCL Forms应用程序

添加TMainMenu并插入File/Edit/etc的模板菜单。

将TCoolBar添加到

形式

将TToolBar添加到TCoolBar

为File/Edit/etc中的每一个添加TToolButton到TToolBar中。并选择组属性

从窗体中删除Menu属性(这样就不会显示程序菜单)

将每个TToolButton的MenuItem属性分配给相应的File/Edit/etc。

在第一个

下方的TToolBar中添加第二个TCoolBar
看起来是这样的:

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

我的问题是，有没有人知道如何通过第三方组件库获得相似的外观？原始开发人员似乎使用了第三方VCL库。除了样式菜单和TCoolBar外，我还想添加阴影。

我已经尝试过Raize Components，TMS Advanced Toolbars和Menus，并且正在尝试DevExpress VCL组件。他们似乎都没有提供解决方案，但也许我对它们还不了解，还没有找到解决方案。

最佳答案

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

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

关于Delphi:在TCoolBar中设置TMainMenu和TToolBar的样式，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/14885963/