Excel 从 VCL 表单中窃取键盘焦点(在 AddIn 中)

Question

我有一个用 Delphi 编写的 Excel AddIn，它有一个带有 TMemo 的 VCL 表单。当我尝试在备忘录中输入文本时，输入会转至 Excel。

当我启动表单模式 (ShowModal) 时，一切正常，但显然不可能同时使用主 Excel 窗口和插件窗口。

这个问题似乎与这个问题完全相同:Modeless form cannot receive keyboard input in Excel Add-in developed by Delphi

这个answer建议处理 WM_PARENTNOTIFY 所以我尝试了以下操作:

TMyForm = class(TForm)
...
 procedure OnParentNotify(var Msg: TMessage); message WM_PARENTNOTIFY;

在该过程中尝试了诸如SetFocus、WinApi.Windows.SetFocus(self.Handle)、SetForeGroundWindows、SetActiveWindow之类的东西 但这似乎不起作用。

我读过的其他建议是run the UI in a different thread (这对于 VCL 来说当然是不可能的)并使用 SetWindowsHookEx 安装键盘钩子(Hook)。显然，这将为我们提供按键事件，但不知道如何处理这些事件。

我没有使用 Add-In Express 等第 3 方工具，而只是实现 IDTExtensibility2。

编辑:更多研究表明 Office 使用名为 IMsoComponent 的界面和和IMsoComponentManager作为跟踪应用程序中事件组件的一种方式。 Visual Studio 将它们用作 IOleComponent和 IOleComponentManager .

这个link和 this建议注册一个新的空 IOleComponent/IMsoComponent。

编辑:可以获取 MCVE here ，它是最小的 Excel AddIn 代码，将启动带有 TEdit 的 VCL 表单。一旦工作表处于事件状态，编辑就会失去键盘焦点。

Answer 1

我也遇到了同样的问题。我也在实现 IDTExtensibility2，但当我在 C++ 上实现时，我已经设法在不同的线程上运行 UI。但无论如何，我对这个解决方案并不完全满意。如果我想使用 VBA 用户窗体作为任务 Pane 窗口，我仍然会遇到这个问题。我确实尝试过，但(我猜，没有检查)VBA 用户窗体将在 native Excel 线程上运行，只是在不同的线程上调用它(用作 TaskPane 窗口)只是编码它，并不意味着它是在不同的线程上创建的，所以当我尝试时，存在这种问题。

我也阅读并尝试在我的窗口上使用 SetFocus.. 处理 WM_PARENTNOTIFY 消息，但没有成功。

这两个接口(interface) IOleComponent 和 IOleComponentManager 对我来说都是新的。找不到头文件，但可以根据您共享的链接中的描述进行编写和实现。

它对我的工作原理是在我的表单窗口的每个 WM_SETCURSOR e WM_IME_SETCONTEXT 上注册我的 IOleComponent 实现。 (我不确定这是否是最好的消息，但确实对我有用)并在每次点击 EXCEL7 窗口时撤销该组件。

我用来注册的 MSOCRINFO 选项是 msocrfPreTranslateKey 和 msocadvfModal。

希望这个回答不会让我受到大量批评。我知道这是一个非常具体的问题，当我读到它时，问题的状态是-1，但这正是我需要完成的。所以我只是想诚实地分享一些东西。