Focus to my application (resolved!)

[ip_ram]

Hello!

I need to give focus to my application when it happens a condition.

I'm using a function called by the Timer to verify this condition.

I've tried the ShowWindow () functions and SetForegroundWindow () but without obtaining the desired result.

Any suggestions?

Thank you

[Armando]

ip_ram:

Pls try with this code

Code: Select all  Expand view

    LOCAL hWnd := FindWindow( 0, "Yor application's title")

    IF hWnd != 0
        ShowWindow( hWnd, 1)
        QUIT
    ENDIF
 

Regards

[ip_ram]

Armando,

Unfortunately this way did not work. I already tried that.

There are two situations: when the user switches the application with other and when the user minimizes the application.

And in this case (minimize), I can not give focus in the application.

I'll keep searching ...

Thanks!

Rodrigo Melo

[hmpaquito]

Try http://fivetechsupport.com/forums/viewt ... =0#p168362

[Armando]

Rodrigo:

It Works here.

In the code

FindWindow( 0, "Yor application's title")

It must be the exactly main window's title, and in the top of MAIN prg,
here is a sample code for the minimize situation

Code: Select all  Expand view

FUNCTION MAIN()
    LOCAL hWnd := FindWindow( 0, "Your application's title")
        ....
        ....
    IF hWnd != 0
        ShowWindow( hWnd, 1)
        QUIT
    ENDIF

 

Regards

[ip_ram]

Armando,

My fault... Now is working:

hWnd := FindWindow (0, oWnd:cTitle () )

ShowWindow( hWnd, 9) // is diplayed even if minimized

Tks!

Rodrigo Melo

[Armando]

Rodrigo:

Cool !.

Regards