Как убрать фокус окна документа Microsoft Word™?

Я разрабатываю надстройку Word в Delphi, на панели задач я помещаю виртуальное дерево, в событии OnFocus виртуального дерева я вызываю Word, чтобы вставить файл в текущий документ Word с помощью метода ActiveDocument.Range.InsertFile, но это операция вернет фокус ввода обратно в окно документа Word, поэтому, наконец, в этом обработчике событий я вызываю TreeView.SetFocus, чтобы снова установить фокус на древовидную структуру, это работает, за исключением того, что в окне документа Word по-прежнему отображается немигающий курсор.

Я попытался отправить сообщение Windows WM_KILLFOCUS дескриптору окна документа Word, но безуспешно. Любые подсказки? Заранее спасибо!


person Edwin Yip    schedule 23.12.2009    source источник


Ответы (1)


Вы можете попробовать вызвать Application.BringToFront или Application.MainForm.BringToFront.

person The_Fox    schedule 24.12.2009
comment
Привет The_Fox, Спасибо, оба этих способа не решают проблему, может потому что форма встроена в главное окно Ворда. А свойство Application.MainForm равно нулю. - person Edwin Yip; 25.12.2009
comment
Попробуйте вызвать BringToFront в своей форме, содержащей TreeView. - person The_Fox; 26.12.2009