我有一个 Delphi 10.4.2 程序(32 位),其中在程序加载期间添加菜单项(Application.OnActivate 事件,编码为仅运行一次)。如果没有 vcl 样式,新项目将正确显示,但是当应用样式时(例如屏幕截图中非常漂亮的 Iceberg Classico),显示不正确。菜单选项在那里,可以点击;但文本和图标没有绘制。
有什么解决方法吗?我假设这是因为添加了这些特定的菜单选项after样式已应用。有没有办法刷新样式?或者我在创建菜单项时缺少设置属性?
Thanks.
Edit:是的,“文件”菜单和子菜单项显示正确。创建新菜单和项目的代码(简化)是:
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;
最后决定关闭菜单的 vcl 样式。我在另一个问题上遵循了 RRUZ 的建议,并在 dpr 源代码中添加了一行,使其变为:
Application.Initialize;
TStyleManager.TrySetStyle('Iceberg Classico');
with TStyleManager do SystemHooks := SystemHooks - [shMenus];
Application.Title := 'blah, blah, etc'
菜单项重新出现,它们看起来不错:
感谢 SilverWarior 的意见和建议。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)