Page 1 of 1

dialogo por sobre todo el resto de ventana...?

Posted: Wed Jan 12, 2022 8:34 am
by goosfancito
Hola.
Necesito que un dialogo este por sobre todas las ventanas, cual sería la clausula a usar?

gracias.

Re: dialogo por sobre todo el resto de ventana...?

Posted: Wed Jan 12, 2022 10:46 am
by Enrico Maria Giordano
Try this:

Code: Select all | Expand

SETWINDOWPOS( oDlg:hWnd, -1, 0, 0, 0, 0, 3 )


EMG

Re: dialogo por sobre todo el resto de ventana...?

Posted: Wed Jan 12, 2022 10:47 am
by cmsoft
Hola Gustavo, usa esta funcion que alguna vez encontre en el foro

Code: Select all | Expand


DEFINE DIALOG oDlg TITLE "Alertas " FROM 09,15 TO 28,135 OF oApp:oWnd
ACTIVATE DIALOG oDlg CENTER ON INIT DlgOnTop( .t.,oDlg:hWnd )

function DlgOnTop( lState, hWnd )
   local nRet := 0
   DEFAULT hWnd := GetActiveWindow()
   if !lState
      nRet = AcpOnTop( hWnd, -2, 0, 0, 0, 0, 3 )
   else
      nRet = AcpOnTop( hWnd, -1, 0, 0, 0, 0, 3 )
   endif
return nRet
 

Re: dialogo por sobre todo el resto de ventana...?

Posted: Thu Jan 13, 2022 8:59 am
by Sebastián Almirón
BringWindowToTop( < hWnd > )