FiveTech Software tech support forums

Code: Select all | Expand

function Main()

   local oWnd

   DEFINE WINDOW oWnd FROM 100,100 TO 400,400 PIXEL TITLE "First Window"
   @ 20,20 BUTTON "New Window" SIZE 200,50 PIXEL OF oWnd ;
      ACTION ( CreateNextWindow( oWnd ), oWnd:GoTop() )

   ACTIVATE WINDOW oWnd

return nil

function CreateNextWindow( oMain )

   local oWnd

   DEFINE WINDOW oWnd FROM 200,200 TO 500,500 PIXEL OF oMain
   ACTIVATE WINDOW oWnd

return nil



 

Code: Select all | Expand

BringWindowToTop( hWnd )

Code: Select all | Expand

HB_FUNC (GETNEXTWINDOW)
{
   HWND hWnd     = (HWND) HMG_parnl (1);
   HWND hWndNext = GetWindow (hWnd, GW_HWNDNEXT);
   HMG_retnl ((LONG_PTR) hWndNext );
}

Code: Select all | Expand

GetWindow( hWnd, 2 or 3 )