ActiveX window runs minimized

[cdmmaui]

I am having a problem with the following code. When the window is activated it displays for a brief second then goes to the task bar (minimized); I then need to click the task bar item for the window to reappear. What can I do so the window does not run minimized? I have tried the following with no luck.

ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )
ACTIVATE WINDOW oWnd2 ON INIT ShowWindow( oWnd2, 1)
ACTIVATE WINDOW oWnd2 ON INIT ShowWindow( oWnd2, 5 )
ACTIVATE WINDOW oWnd2 ON INIT ShowWindow( oWnd2, 9)
ACTIVATE WINDOW oWnd2 NORMAL

// Source below...
MENU oMenu
MENUITEM "&Close" ACTION ( oWnd2:End() )
ENDMENU

DEFINE WINDOW oWnd2 FROM 0, 0 TO 40, 85 MENU oMenu

oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" )
oWnd2:oClient = oActiveX
oActiveX:Do( "Navigate2", cAesdd + cHan )

ACTIVATE WINDOW oWnd2 NORMAL

Thank you,

[James Bott]

Darrell,

I don't know if either of these will work, but you can try:

SetForeGroundWindow( hWnd )

Or,

SetActiveWindow( hWnd )

You might also try a sysRefresh() afterward.

James

[cdmmaui]

Hi James,

Thank you, I will try to use these two with ON INIT

[Antonio Linares]

Darrell,

You may also try:

ACTIVATE WINDOW oWnd2 NORMAL ;
ON INIT SetFocus( oWnd2:hWnd )

[cdmmaui]

Thank you James and Antonio; I tried all three with and without sysrefresh() and it did not work. Any chance it has something to do wiht IE7?

[Antonio Linares]

Darrell,

Could you provide a small and self contained sample to test it here ? thanks

[James Bott]

Darrell,

This works for fine here (and it is visible):

Code: Select all  Expand view  RUN

// Test ActiveX

#include "fivewin.ch"

function main()
   local oWnd,oActiveX

   DEFINE WINDOW oWnd

   oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
   oWnd:oClient = oActiveX
   oActiveX:Do( "Navigate2", "www.microsoft.com" )

   ACTIVATE WINDOW oWnd

return nil