... 
    oBrw := _TBrowse( oTsb, cAls, cBrw, nY, nX, nW, nH ) 
  
    oBrw:bEvents := {|ob,nMsg,nWParam,nLParam| 
                     Local lRet, nCell, nHead, nFoot, nSpec 
                     // события назначаем (можно не все, тогда должен работать и ob:bLdblClick) 
                     nHead := 30 
                     nFoot := 31 
                     nSpec := 32 
                     nCell := 33 
                     lRet := bEvents_LDblClick( ob, nMsg, nWParam, nLParam, nCell, nHead, nFoot, nSpec ) 
                     Return lRet 
                    } 
 ... 
       :Event(30, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
       :Event(31, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
       :Event(32, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
       :Event(33, {|ow,ky,ap| 
                   Local nI, xv 
                   ? "E-"+StrZero(ky, 2), ow:Name, ap, ap[3]:cControlName 
                   for nI := 1 TO Len(ap) 
                       xv := ap[nI] 
                       ? nI, xv 
                       IF Valtype(xv) == "O" ; ?? xv:ClassName 
                       ENDIF 
                   next 
                   ? 
                   Return Nil 
                  }) 
 ... 
 FUNCTION bEvents_LDblClick( ob, nMsg, nWParam, nLParam, nCell, nHead, nFoot, nSpec ) 
    Local nRowPix, nColPix, nRow, nCol, lPost, nPost, o 
  
    //#define WM_LBUTTONDBLCLK  515  // 0x203 
    IF nMsg == 515 .and. !_GetKeyState( VK_SHIFT ) .and. ! ob:IsEdit .and. ob:lCellBrw 
  
       IF ! ob:lEnabled .or. ob:lDontChange ; RETURN lPost 
       ENDIF 
  
       o := ob:Cargo ; Default o := oHmgData() 
       Default nCell := o:nEventCell 
       Default nHead := o:nEventHead 
       Default nFoot := o:nEventFoot 
       Default nSpec := o:nEventSpec 
       Default nCell := 0, nHead := 0, nFoot := 0, nSpec := 0 
  
       IF Empty( nCell + nHead + nFoot + nSpec) ; RETURN lPost 
       ENDIF 
  
       nRowPix := HiWord( nLParam ) 
       nColPix := LoWord( nLParam ) 
       nRow  := ob:GetTxtRow( nRowPix ) 
       nCol  := ob:nAtColActual( nColPix ) 
       lPost := .F. 
       nPost := 0 
  
       IF ! Empty(nCell) .and. nRow == ob:nRowPos .and. nRow > 0 
          lPost := .T. 
          nPost := nCell 
       ELSEIF ! Empty(nHead) .and. nRow == 0 .and. ! Empty( ob:lDrawHeaders ) 
          lPost := .T. 
          nPost := nHead 
       ELSEIF ! Empty(nFoot) .and. nRow == -1 .and. ! Empty( ob:lDrawFooters ) 
          lPost := .T. 
          nPost := nFoot 
       ELSEIF ! Empty(nSpec) .and. nRow == -2 .and. ! Empty( ob:lDrawSpecHd ) 
          lPost := .T. 
          nPost := nSpec 
       ENDIF 
  
       IF lPost ; DO EVENTS ; _wPost( nPost, ob:cParentWnd, { nRow, nCol, ob, nWParam } ) 
       ENDIF 
  
    ENDIF 
  
 RETURN lPost 
 ... 
 

FUNCTION FindListZa(...) 
 ... 
    hOld := _HMG_InplaceParentHandle 
    _HMG_InplaceParentHandle := ThisWindow.Handle 
  
    DEFINE WINDOW Form_NZ          ; 
           MODAL                   ; 
           ON INIT {|| MyInitFormNZ(...) } 
 ... 
           cText := "1.Меню" 
           @ BUTTONEX Button_1 ...  ACTION {|| _wSend(10), DoEvents(), _wPost(12) } 
  
           cText     := "2.Меню" 
           @ BUTTONEX Button_2 ...  ACTION {|| _wSend(20), DoEvents(), _wPost(22) } 
  
           cText     := "3.Меню" 
           @ BUTTONEX Button_3 ....  ACTION {|| _wSend(30), DoEvents(), _wPost(32) } 
  
           cText      := "Выход" 
           @ BUTTONEX Button_5 ... ACTION {|| _wSend(97) } 
  
          ON KEY ESCAPE OF Form_NZ ACTION _wPost(97) 
          ON KEY F2     OF Form_NZ ACTION _wPost(87, ThisWindow.Name) 
  
          WITH OBJECT This.Object 
             :Event( 0, {|  | InkeyGui(200)                                  } ) 
             :Event( 1, {|  | This.Button_1.Setfocus , _PushKey( VK_RETURN ) } ) 
             :Event( 2, {|  | This.Button_2.Setfocus , _PushKey( VK_RETURN ) } ) 
             :Event( 3, {|  | This.Button_3.Setfocus , _PushKey( VK_RETURN ) } ) 
             :Event( 4, {|  | This.Button_4.Setfocus , _PushKey( VK_RETURN ) } ) 
  
             :Event(10, {|  | This.Button_1.Enabled := .F. } ) 
             :Event(11, {|ow| This.Button_1.Enabled := .T. , _wPost(90, ow) } )       
             :Event(12, {|ow| // 1.Меню 
                              IniSaveFileThisNZ(...) 
                              ReListNZ1(...) 
                              DoEvents() 
                              _wPost(11, ow:Name) 
                              RETURN NIL 
                              } ) 
  
              :Event(20, {|  | This.Button_2.Enabled := .F. } ) 
              :Event(21, {|ow| This.Button_2.Enabled := .T. , _wPost(90, ow) } )      
              :Event(22, {|ow| // 2.Меню 
                               LOCAL nMsg 
                               IniSaveFileThisFNZ(...) 
                               aNew := ReListNZ2(...) 
                               nMsg := iif( LEN(aNew) > 0, 99, 21 ) 
                               DoEvents() 
                               _wPost(nMsg, ow:Name) 
                               RETURN NIL 
                               } ) 
  
              :Event( 30, {|  | This.Button_3.Enabled := .F. } ) 
              :Event( 31, {|ow| This.Button_3.Enabled := .T.  , _wPost(90, ow) } )  
              :Event( 32, {|ow| // 3.Меню 
                                LOCAL nMsg 
                                IniSaveFileThisFNZ(...) 
                                aNew := ReListNZ3(...) 
                                nMsg := iif( LEN(aNew) > 0, 99, 31 ) 
                                DoEvents() 
                                _wPost(nMsg, ow:Name) 
                                RETURN NIL 
                                } ) 
  
             :Event( 87, {|ow| HelpThisWindow() , DoEvents(), _wPost(90, ow)  } ) 
  
             :Event( 90, {|ow| // остаться в окне выбора  
                               Local cMsg := "Window not found ! " + ow:Name + ";" + ProcNL()    
                               IF ! To_Focus(ow:Name , "Label_0")  
                                  AlertStop(cMsg, "ERROR")     
                               ENDIF  
                               DO EVENTS 
                               wApi_Sleep(100) 
                               Return Nil 
                               } ) 
  
             :Event( 97, {|ow| IniSaveFileThisFNZ(...) ,; 
                               aNew := {} , DoEvents(),  _wPost(99, ow:Name) } ) 
  
             :Event(99, {|ow| ow:Release()  } ) 
          END WITH 
  
    END WINDOW 
  
    CENTER WINDOW Form_NZ 
    ACTIVATE WINDOW Form_NZ 
  
    IF ! ISNIL(hOld) ; _HMG_InplaceParentHandle := hOld 
    ENDIF 
  
 RETURN aNew