Delphi 如何扼杀微软Word的焦点™ 文档窗口?

Delphi 如何扼杀微软Word的焦点™ 文档窗口?,delphi,vba,com,ole,Delphi,Vba,Com,Ole,我正在Delphi中开发一个Word插件,在任务窗格中我放置了一个虚拟树视图,在虚拟树视图的OnFocus事件中,我调用Word通过方法ActiveDocument.Range.InsertFile将文件插入当前Word文档,但此操作将把输入焦点放回Word文档窗口,因此,最后在这个事件处理程序中,我调用TreeView.SetFocus将焦点设置回TreeView,除了Word文档窗口仍显示一个未链接的插入符号外,这是有效的 我尝试将WM_KILLFOCUS windows消息发送到Word文

我正在Delphi中开发一个Word插件,在任务窗格中我放置了一个虚拟树视图,在虚拟树视图的OnFocus事件中,我调用Word通过方法ActiveDocument.Range.InsertFile将文件插入当前Word文档,但此操作将把输入焦点放回Word文档窗口,因此,最后在这个事件处理程序中,我调用TreeView.SetFocus将焦点设置回TreeView,除了Word文档窗口仍显示一个未链接的插入符号外,这是有效的


我尝试将WM_KILLFOCUS windows消息发送到Word文档窗口的句柄,但没有成功。有什么提示吗?提前谢谢你

您可以尝试调用Application.BringToFront或Application.MainForm.BringToFront。

您好,谢谢,这两种方法都不能解决问题,可能是因为表单嵌入到Word主窗口中。并且Application.MainForm属性为nil。请尝试在包含TreeView的表单上调用BringToFront。