FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour SHOWWINDOW, SETFOREGROUNDWIND
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
SHOWWINDOW, SETFOREGROUNDWIND
Posted: Fri Mar 03, 2017 03:03 PM
Dear Enrico,
I've found this your code in this group.
Is it possible to set focus too?
This code show window but focus is not activated in program MyWin.
Is it possible?

Bye
Marco


Code (fw): Select all Collapse
#include "Fivewin.ch"


FUNCTION MOSTRA()

    LOCAL cTitle := "MyWin"

    SHOWWINDOW( FINDWND( cTitle ), 9 )
    SETFOREGROUNDWINDOW( FINDWND( cTitle ) )

    RETURN NIL


#define GW_HWNDFIRST 0
#define GW_HWNDLAST  1
#define GW_HWNDNEXT  2
#define GW_HWNDPREV  3
#define GW_OWNER     4
#define GW_CHILD     5


FUNCTION FINDWND( cTitle )

    LOCAL hWnd := GETWINDOW( GETDESKTOPWINDOW(), GW_CHILD )

    WHILE hWnd != 0
        IF UPPER( cTitle ) $ UPPER( GETWINDOWTEXT( hWnd ) )
            RETURN hWnd
        ENDIF

        hWnd = GETWINDOW( hWnd, GW_HWNDNEXT )
    ENDDO

    RETURN NIL
Marco Boschi
info@marcoboschi.it
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: SHOWWINDOW, SETFOREGROUNDWIND
Posted: Fri Mar 03, 2017 03:31 PM

Enrico,
problem Solved!
Many thanks Again
Marco

Marco Boschi
info@marcoboschi.it
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: SHOWWINDOW, SETFOREGROUNDWIND
Posted: Fri Mar 03, 2017 04:13 PM

How?

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

Continue the discussion