OLE and Word : how to set focus to Word-window

[driessen]

Hello,

I use this code to set the focus to the Word-window when using Word and OLE in my FWH-application :

Code: Select all  Expand view

BringWindowToTop(FindWindow("OpusApp",NIL))

Sometimes it works fine but sometimes the Word-button on the bar at the bottom of my screen starts flickering. I have to push on it before Word has actual the focus.

What is wrong with my code ? How can I set the focus to Word in an automatic way ?

I'm using Windows XP, Office 2003 or 2007, FWH 8.09 and xHarbour Builder Sept. 2008.

Thanks a lot in advance for any help.

[Antonio Linares]

Michel,

Did you try what Jeff pointed you from Microsoft ?

http://forums.fivetechsoft.com/viewtopic.php?t=10978

[driessen]

Antonio,

The article which Jeff pointed me to, was about the ForeGroundLockTimeOut in the Windows register.

I changed the register, but unfortunately, it didn't help. The problem is still occuring.

Any idea ?

Thanks.

[Antonio Linares]

Michel,

Does this code makes a difference ?

Setforegroundwindow(FindWindow("OpusApp",NIL))

[driessen]

Antonio,

No, your suggestion doesn't work.

I also tried

- BringWindowToTop()
- ShowWindow()
- SetFocus()

But I don't have any success with one of them.

Thanks.

[James Bott]

Michel,

Here is another one to try:

SetWindowPos( oWnd:hWnd, -2, 0, 0, 0, 0, 3 )

Regards,
James

[driessen]

James,

Thanks a lot for your effort but I'm afraid the problems stays as it was.

Thanks.

[driessen]

Guys,

Thanks a lot for your help.

I was able to solve the problem.

After a deep debug, I noticed that the problem occurred at this line :

Code: Select all  Expand view

hWordOle:Documents:Save()

I added a BringWindowToTop() just in front of this line and now the problem is solved.

Thanks a lot for your efforts.

[Antonio Linares]

Michel,

Very good!

Thanks for sharing it with us