Delphi：TCoolBar中的Styain TMainMenu和TToolBar

发布时间：2020-12-15 09:28:29 所属栏目：大数据来源：网络整理

导读：我正在尝试在Delphi XE3中创建一个应用程序菜单和工具栏,如下所示(来自我的程序)：我可以通过执行以下操作来复制此外观的一部分：创建一个新的VCL Forms应用程序添加TMainMenu并插入文件/编辑/等的模板菜单. 将TCoolBar添加到表单将一个TToolBar添加到TC

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

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

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

这是它的样子：

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

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

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

解决方法

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!