Lo que requiero hacer voy a lo intento explicar en la siguiente imagen:
- Code: Select all Expand view
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
DEFINE WINDOW oWnd TITLE "Probando Iniciar Dialogo En Posicion 0,0" ;
MDI ;
MENU BuildMenu()
SET MESSAGE OF oWnd TO "Main Window"
ACTIVATE WINDOW oWnd VALID MsgYesNo( "Want to End ?" )
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Information"
MENU
MENUITEM "&UBICAR" ACTION Dlg( oMenu )
SEPARATOR
MENUITEM "&End..." ACTION oWnd:End()
ENDMENU
ENDMENU
return oMenu
STATIC FUNCTION Dlg()
Local aPoint
Local nTopR
Local nLeftR
Local oDlg
nTopR := oWnd:nTop
nLeftR := oWnd:nLeft
aPoint := { nTopR, nLeftR }
aPoint = ClientToScreen( oWND:hWnd, aPoint )
DEFINE DIALOG oDlg PIXEL TRUEPIXEL STYLE (DS_MODALFRAME|WS_POPUP|WS_BORDER) SIZE 54,70 OF oWND
oDlg:bStart := { || SetCapture( oDlg:hWnd ),;
oDlg:SetPos( aPoint[ 1 ], aPoint[ 2 ] ) }
ACTIVATE DIALOG oDlg
return .t.
De antemano gracias