为程序加载期间添加的菜单项发布Vcl样式
为程序加载期间添加的菜单项发布Vcl样式
提问于 2020-12-21 10:20:40
我有一个Delphi10.4.2程序(32位)，在程序加载期间添加菜单项( Application.OnActivate事件，代码只运行一次)。如果没有vcl样式，就会正确地显示新项，但是当应用样式时(例如屏幕截图中非常漂亮的Iceberg )，显示是不正确的。菜单选项在那里，可以单击；但是文本和图标没有绘制。
有工作吗？我假设这是因为这些特定的菜单选项是在应用样式之后添加的。是否有刷新样式的方法?还是在创建菜单项时缺少安装属性？
谢谢。
编辑：是的，“文件”菜单和子菜单的显示是正确的。创建新菜单和项(简化)的代码是：
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;回答 2
Stack Overflow用户
回答已采纳
发布于 2021-01-22 17:00:41
最后决定关闭菜单的vcl样式。在另一个问题上，我遵循了RRUZ的建议，并在dpr源中添加了一行，使其成为：
Application.Initialize;
TStyleManager.TrySetStyle('Iceberg Classico');
with TStyleManager do SystemHooks := SystemHooks - [shMenus];
Application.Title := 'blah, blah, etc'菜单项又出现了，看上去很好：
感谢SilverWarior的意见和建议。
Stack Overflow用户
发布于 2020-12-21 22:16:33
尝试在Delphi10.3中重新创建这个场景，它对我来说很好。
但后来我用一些诡计重新创造了你的“最终结果”。为了做到这一点，我不得不为mnItem.Name和mnItem.caption传递空字符串。
因此，我认为您面临的问题不是使用VCL样式，而是使用返回空字符串的HelpLinks[idx].Key和HelpLinks[idx].Text方法。因此，您最终会得到没有名称和标题的菜单项，因此，它们呈现错误时会出现。
如果我是正确的，禁用VCL样式仍然会有相同的结果。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/65390989
复制相关文章
相似问题
腾讯云开发者
