... 
    ACTIVATE WINDOW &cForm 
  
    _HMG_InplaceParentHandle := 0 
    _HMG_IsModalActive       := Len(HMG_GetForms("M")) > 0 
  
 RETURN NIL 
 

             IF hWnd != NIL .and. ( nI := GetFormIndexByHandle ( hWnd ) ) > 0  
                 IF _HMG_aFormType [ nI ] ==  "M"  
                    cModal := "M"  
                 ENDIF  
              ENDIF

 
              IF hWnd != NIL .and. ( nI := GetFormIndexByHandle ( hWnd ) ) > 0  
                 IF _HMG_aFormType [ nI ] $  "MSY"  
                    cModal := "M"  
                 ENDIF  
              ENDIF

 
 ... 
          nHeight += 8 
  
 #ifdef _HMG_COMPAT_ 
          IF ! Empty( _HMG_MainHandle ) 
             hWnd := iif( _HMG_BeginWindowMDIActive, GetActiveMdiHandle(), GetActiveWindow() ) 
             IF hWnd != NIL .and. ( nI := GetFormIndexByHandle( hWnd ) ) > 0 
                IF _HMG_aFormType [ nI ] $ "MSY" 
                   _HMG_IsModalActive := .T. 
                ENDIF 
             ENDIF 
          ENDIF 
 #endif 
          IF lNoWait .AND. ! _HMG_IsModalActive 
             DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD 
          ELSE 
             DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL 
             IF HB_ISBLOCK( bOnInit ) 
                l_No_Wait := .F. 
             ENDIF 
          ENDIF 
 

#include "minigui.ch" 
 .... 
       cForm  := GetFormNameByIndex( nIndex ) 
 

Error: Unresolved external '_HB_FUN_GETFORMNAMEBYINDEX' referenced from 

#include "hmg.ch" 

Использование: 
  
 lIsModal := _HMG_IsModalActive 
 ... 
 _HMG_IsModalActive := .F. 
 _HMG_IsModalActive := .T. 
 ... 
 _HMG_IsModalActive := lIsModal 
 

 
          :Event( 1, {|ow,ky,cn|  
                       Local lIsModal := _HMG_IsModalActive 
                       ? ow:Name+" :Event( 1 ... start", _HMG_IsModalActive 
                       SET WINDOW THIS TO ow:Name 
                       _HMG_IsModalActive := .T. 
                       ?? "===>", _HMG_IsModalActive 
                       Table_Four(ow, cn, .T.) 
                       _HMG_IsModalActive := lIsModal 
                       ? ow:Name+" :Event( 1 ... stop ", _HMG_IsModalActive 
                       SET WINDOW THIS TO 
                       ky := ow 
                       IF ow:Type == "M" ; EnableWindow( ky := ow:Handle ) 
                       ENDIF 
                       ow:Enabler(cn, .T.) 
                       ow:SetFocus(ow:Cargo:cFocus) 
                       Return Nil 
                       }) 
 

 
 окно MAIN 
        :Event( 1, {|ow,ky,cn|  
                     _wSend(10,,{cn, .F.}) 
                     SET WINDOW THIS TO ow:Name 
                     Table_One(ow, cn) 
                     SET WINDOW THIS TO  
                     _wSend(10,,{cn, .T.}) 
                     ow:SetFocus( ky := ow:Cargo:cFocus ) 
                     Return Nil 
                     }) 
        :Event( 2, {|ow,ky,cn|  
                     _wSend(10,,{cn, .F.}) 
                     SET WINDOW THIS TO ow:Name 
                     Table_Two(ow, cn) 
                     SET WINDOW THIS TO  
                     _wSend(10,,{cn, .T.}) 
                     ow:SetFocus( ky := ow:Cargo:cFocus ) 
                     Return Nil 
                     }) 
  
 в окно STANDARD кнопка <Test 2> 
          :Event( 1, {|ow,ky,cn|  
                       Local lIsModal := _HMG_IsModalActive 
                       SET WINDOW THIS TO ow:Name 
                       _HMG_IsModalActive := .T. 
                       Table_Four(ow, cn, .T.) 
                       _HMG_IsModalActive := lIsModal 
                       EnableWindow( _HMG_MainHandle ) 
                       EnableWindow( ky := ow:Handle ) 
                       ow:Enabler(cn, .T.) 
                       ow:SetFocus(ow:Cargo:cFocus) 
                       DO EVENTS 
                       Return Nil 
                       }) 
  
 

 
       (This.Object):Event( 98, {|ow| 
                                   Local oBrw, oTsb := ow:GetObj("oBrw") 
                                   If ISOBJECT(oTsb) 
                                      oBrw := oTsb:Tsb 
                                      If ow:Cargo:FocusedControl == "MyFind"           // GetBox edit end 
                                         oBrw:SetFocus() 
                                         DO EVENTS 
                                         RETURN Nil 
                                      ElseIf oBrw:IsEdit 
                                         oBrw:PostMsg( WM_KEYDOWN, VK_ESCAPE )       // TsBrowse edit end 
                                         oBrw:SetFocus() 
                                         DO EVENTS 
                                         RETURN Nil 
                                      EndIf                                            // Child release 
                                   EndIf 
                                   _CloseActiveMdi() 
                                   DO EVENTS 
                                   If Len(HMG_GetForms("Y")) == 0 
                                   ? ">>> 98", oMain, oMain:Name 
                                   ?? __objHasData( oMain, "Name" ), oMain:Name 
                                      _wPost(99, oMain) 
                                   EndIf 
                                   RETURN Nil 
                                } ) 
 

 
 FUNCTION _wPost( nEvent, nIndex, xParam ) 
 ... 
          cForm := nIndex:Name 
          //cForm := _HMG_THISFORMNAME 
          //IF __objHasData( nIndex, "Name" ) ; cForm := nIndex:Name 
          //ENDIF 
 ... 
 FUNCTION _wSend( nEvent, nIndex, xParam ) 
 ... 
          cForm := nIndex:Name 
          //cForm := _HMG_THISFORMNAME 
          //IF __objHasData( nIndex, "Name" ) ; cForm := nIndex:Name 
          //ENDIF 
 ...