delphi - 将 TMainMenu 转换为 TActionBar

Question

我在一个旧项目中，表单上有标准菜单。菜单项由我使用 TActionManager 创建的 TActions 填充。

我正在更新这个旧项目，现在想将菜单的外观更改为 TActionManager 设置的 XP 样式，以便它可以与 匹配我的表单上的 >TToolBars 已更改为 dsGradient。

有没有一种非懒惰的方法来进行这种转换？

否则，这意味着我必须手动浏览表单，删除 TMainMenus，在表单上放置 TActionMainMenuBar，然后开始创建 TActionBars code> 再次填充菜单，我现在就诚实地告诉你，我不想花那么多时间来做这件事。

因此，如果有一种方法可以以某种方式自动进行转换，我有兴趣知道，那么我就不必花费太多时间手动更改它们。

同样，如果可以在不手动进行更改的情况下完成上述操作，我有兴趣看看是否可以反向转换，例如 TActionBar 菜单到 TMainMenu？

如果我必须手动完成，那就这样吧，但如果有更快更好的选择，那么我真的很想知道。

Answer 1

我强烈建议您学习以下转换器实用程序 ChoosPill :

1. TB2KImpTb97
2. TB2KImport

它们以源代码形式分发，并支持从库存 VCL导入所有相关项目和属性组件 TMainMenu、TPopupMenu、TMenuItem 和 TToolBar 到 Jordan Russel著名的Toolbar97/Toolbar2000组件恭敬。

您还可以考虑看一下 TBXLib 转换器 source code .

如果您是DevExpress，您也可以考虑深入研究TdxBarConverter的源代码注册用户。

它们可以作为您的良好起点。