程序加载期间添加的菜单项的 Vcl 样式问题

Question

我有一个 Delphi 10.4.2 程序（32 位），其中的菜单项是在程序加载期间添加的（Application.OnActivate 事件，仅编码为运行一次）。如果没有 vcl 样式，新项目会正确显示，但是当应用样式时（例如屏幕截图中非常漂亮的 Iceberg Classico），显示不正确。菜单选项在那里，可以点击；但是没有绘制文本和图标。

有什么变通办法吗？我假设这是因为那些特定的菜单选项是在在应用样式之后添加的。有没有办法刷新样式？还是我在创建菜单项时缺少设置属性？

谢谢。

Edit: 是的，'File' 菜单和子菜单项显示正确。创建新菜单和项目（简化）的代码是：

procedure TDbHelper.CreateHelpMenu;
// Called by OnApplicationActivated event, and run just once 
var
   aMenu: TMainMenu;
   mnHelp, mnItem: TMenuItem;
   idx: Integer;
begin
   aMenu := Application.MainForm.Menu;
   // create new menu
   mnHelp         := aMenu.CreateMenuItem;
   mnHelp.Name    := 'WISHelp1';               
   mnHelp.Caption := 'WIS Help';
   aMenu.Items.Add(mnHelp);
   // now the submenu items
   for idx := 0 to HelpLinks.Count - 1 do
   begin
      mnItem := TMenuItem.Create(mnHelp);
      mnItem.Name := HelpLinks[idx].Key;
      mnItem.Caption := HelpLinks[idx].Text;
      mnItem.ImageIndex := HelpLinks[idx].ImageIndex;                            
      mnItem.OnClick := WISHelpItemClick;
      mnHelp.Add(mnItem);
   end;
end;

Answer 1

尝试在 Delphi 10.3 中重新创建此场景，对我来说效果很好。

但后来我通过一些摆弄设法重新创建了您的“最终结果”。为了这样做，我必须为 mnItem.Name 和 mnItem.caption.

传递空字符串

所以我相信您面临的问题不是使用 VCL 样式，而是实际上您的 HelpLinks[idx].Key 和 HelpLinks[idx].Text 方法返回空字符串。因此，您最终会得到没有名称和标题的菜单项，因此它们看起来是错误的。

如果我是正确的，禁用 VCL 样式仍然会有相同的结果。

Answer 2

最终决定关闭菜单的 vcl 样式。我在另一个问题上听从了 RRUZ 的建议，并在 dpr 源中添加了一行，这样它就变成了：

  Application.Initialize;
  TStyleManager.TrySetStyle('Iceberg Classico');
  with TStyleManager do SystemHooks := SystemHooks - [shMenus];
  Application.Title :=  'blah, blah, etc'

菜单项重新出现，看起来不错：

感谢 SilverWarior 的意见和建议。

程序加载期间添加的菜单项的 Vcl 样式问题

Vcl Styles issue for menu items added during program load

delphi

menuitem

vcl-styles

delphi-10.4-sydney