Page 1 of 1

traer ventana al primer plano

PostPosted: Thu May 10, 2012 3:25 pm
by mastintin
Vengo con una pregunta seguro que facil , pero no encuentro una solucion rápida..
en un boton tengo el siguiente codigo :
oBrw:report(,,.f.)
para que me genere un reporte en una ventana no modal . Funciona perfecto salvo que la ventana generada se coloca en segundo plano. Como la traigo al frente ?

Re: traer ventana al primer plano

PostPosted: Thu May 10, 2012 3:40 pm
by karinha
Code: Select all  Expand view

      oReport:oDevice:lPrvModal := .T.
      oReport:oDevice:SetPage(9)     //-> A4 //9
 

Re: traer ventana al primer plano

PostPosted: Thu May 10, 2012 3:59 pm
by mastintin
Gracias por responder :D pero requiero que la ventana sea NO modal :(
saludos.

Re: traer ventana al primer plano

PostPosted: Fri May 11, 2012 9:33 am
by antolin
Mastintin, intenta BringWindo( hWnd ), en teoría trae el window hWnd al prmer plano.

Saludos

Re: traer ventana al primer plano

PostPosted: Fri May 11, 2012 10:04 am
by antolin
También puedes intentar SetWindowPos(hWnd,-1,,,,,8)

Debería funcionar.

Aqui tienes unos enlaces: http://winapi.freetechsecrets.com/win32 ... dowPos.htm
y http://www.pinvoke.net/default.aspx/cor ... owPos.html aunque no son de FiveWin, esa funcion trabaja igual en FW.

Re: traer ventana al primer plano

PostPosted: Fri May 11, 2012 10:51 am
by mastintin
Gracias Antolin. Solucionado .
por si a alguien le interesa.
en xbrowse:report() al final del methodo :

Code: Select all  Expand view


   Eval( ::bGoTop )
   Eval( ::bBookMark, UBookMark )

 
   nWnd := GetActiveWindow()  //---------añadido -------------
   ::Refresh()
   ::SetFocus()

    IF !lmodal     //---------añadido
     BringWindowToTop( hWnd )  //------añadido
   endif   //----- añadido

  RELEASE FONT oFont
   RELEASE FONT oBold