delphi TActionMainMenuBar 方向从右到左

Question

使用TActionMainMenuBar时，有没有办法将Actions组件和子菜单从右向左对齐？

改变比迪烟似乎没有改变

将 Bidiparent 设置为 false 没有帮助

将 Align 更改为 AlRight 没有帮助

在 OnShow 上设置

  Application.BidiMode := bdRightToLeft;
  SysLocale.MiddleEast := true;

还有什么想法吗？

更新:将 actionManager.Style 更改为 windows xp 确实有帮助。

我确实首先自定义了代码，但是更改仅在设计时反射(reflect)，并且仅反射(reflect)到“类别”。 Action 本身保持从左到右。

Answer 1

这是 TActionMainMenuBar 组件中的一个已知错误，已提交给 Quality Central:QC#10877 .

该故障早在 2005 年就已报告，由于尚未修复，我对其修复不抱太大希望。

我非常怀疑是否有简单的解决方法，并怀疑您可能需要求助于 TMainMenu。您唯一的希望是将 ActnMenus VCL 单元包含到您自己的项目中，然后找到并修复错误。我已经一次又一次地解决了 TMainMenu 和 TPopupMenu 中的众多错误，但恐怕我没有使用 TActionMainMenuBar 的经验，并且没有从右到左绘图。