delphi - DLL 中的 VCL 样式正在影响应用程序中的 TMenuItem

Question

我正在使用Delphi XE6和VCL样式。我有主要的应用程序和 dll。我的主应用程序已启用运行时主题，并且我正在使用 vcl 样式文件。我对 DLL 做了非常相似的事情。我启用了运行时主题，并在使用和资源文件下添加了 VCL.Themes、VCL.Styles，其中包含 VCL 样式文件。当加载 DLL 时，我从资源加载 VCL 样式并将其设置为 DLL gui。主应用程序和 DLL 不是使用运行时包构建的。

现在我有了用自己的风格设计的主应用程序 GUI，也用自己的风格设计了 DLL gui。这似乎工作正常，直到...

当我单击主应用程序中的按钮时，该事件将打开 TPopupMenu，其样式与 DLL GUI 的样式相同，而不是主应用程序样式。如果我浏览菜单，我也会收到 AV 并且程序崩溃。看看附图。

我做错了什么？我目前看到的唯一解决方法是从其他控件派生我自己的自定义 TPopupMenu。

<小时/>

正如我所 promise 的，我准备了与我的应用程序类似的简单演示程序。它由具有自己风格的主机应用程序和添加到资源的风格的 DLL 组成。运行它并单击弹出按钮，然后尝试从弹出窗口中选择某些内容。它会崩溃并停止在某些 StdWindowProc 或类似的东西中。另外，如果您进入窗口系统菜单(左上角)，当您尝试从该菜单中选择某些内容时，您会注意到系统菜单的样式为 DLL gui 并且也会崩溃。 rar 文件链接:dropbox.com/sh/f2jmbsmw18akpyg/AAA6SWdBmVhf6n6K-mvYLLmua?dl=0

感谢您的帮助。

Answer 1

这是 VCL 样式及其菜单样式设置方式的一个基本问题。样式是通过进程范围的钩子(Hook)来实现的。具体来说，是通过从 Vcl.Themes 单元中的 TCustomStyleEngine.CreateSysHook 调用 SetWindowsHookEx 安装的 CBT Hook 。事实上，该钩子(Hook)仅适用于 GUI 线程，但这是进程范围内的，因为进程中只有一个 GUI 线程。

由于您的应用程序中有多个 VCL 实例(一个在 DLL 中，一个在应用程序中)，因此安装了两个 Hook 。那太多了。最近安装的 Hook (恰好是 DLL)获胜，这就是 DLL 菜单样式感染您的可执行文件的原因。以及为什么会遇到访问冲突。 DLL 正在尝试对属于可执行文件的菜单进行操作。因此，尽管您尽了最大努力，但最终还是得到了从主机可执行文件访问 VCL 对象的 DLL 代码。

没有简单的方法可以解决这个问题并在两个模块中完全支持样式。我们这里得到的是设计的基本结果。该系统并未设计为支持多个 VCL 实例。如果您希望在多个模块中使用 VCL 样式，那么设计者希望您使用运行时包。

我想您也许能够通过在完全不同的线程中操作 DLL 来获得一些吸引力。这将涉及从该不同的线程加载 DLL，以便 VCL 在该线程中初始化。对 DLL 的所有调用都必须来自该线程。并且您需要在该线程中运行消息循环。你可能能够做到这一点，但我对此表示怀疑。即使提到了所有的附带条件，您仍然必须处理这样一个事实:您有两个 GUI 线程，这会带来输入队列处理的各种问题。

也许另一种方法是从 DLL 中卸载 Hook 。只要您的 DLL 不显示菜单，那么您就可以卸载该 Hook 。它会禁用 DLL 显示的菜单样式，但这也许是可以接受的。

这个版本的 DLL(在我对其进行了一些简化之后)会卸载该钩子(Hook)。

library VCLStyleDLL;

{$R 'Style.res' 'Style.rc'}

uses
  VCL.Styles,
  VCL.Themes,
  VCL.SysStyles; // to gain access to TSysPopupStyleHook

{$R *.res}

begin
  TStyleManager.TrySetStyle('Glossy', false);
  TCustomStyleEngine.UnRegisterSysStyleHook('#32768', TSysPopupStyleHook);
end.

使用此版本的 DLL，主机可执行文件不会遇到您在问题中描述的问题。