WITH OBJECT This.Object 
       // events begin 
       :Event({ 0, "myInit_Window"}, {|ow|  // запуск при инициализации окна 
 ... 
                    Return Nil 
                    }) 
       :Event({ 1, "myMain-Menu"}, {|ow| // главное событие запуска всех отложенных событий 
 ... 
                         Return Nil 
                         }) 
 посылать сообщения можно так _wPost(0), _wPost(1) или _wPost("myInit_Window"), _wPost("myMain-Menu") 
 Для App.Object (работа таймеров в осн. потоке БЕЗ учета\смены среды This) 
    WITH OBJECT App.Object                    // объект программы 
    // set events App\Program begin 
    :Event({ 1, "Timer_1" }, {|oa,ky,nn,cnam| // таймер 1 
 ... 
    :Event({ 2, "Timer_2" }, {|oa,ky,nn,cnam| // таймер 2  
 ... 
    :Event({10, "Timer_All"}, {|oa,ky,nn,cnam| // таймера все 3-и в одном событии, для примера  
 ... 
 посылаем сообщения так (это SET EVENTS FUNC TO App_OnEvents или Set_bEvents("App_OnEvents")) 
 FUNCTION App_OnEvents( hWnd, nMsg, wParam, lParam ) 
 ... 
       ********************************************************************** 
       CASE WM_TIMER 
       ********************************************************************** 
         cMsg := "Event arrived - WM_TIMER" 
     
         IF ( i := AScan ( _HMG_aControlIds, wParam ) ) > 0 
            cn := _HMG_aControlNames[ i ] 
            ky := Val( subs(cn, RAt("_", cn) + 1) ) 
            cMsg += " = " + cn + " ( ky = "+hb_ntos(ky)+" )" 
            // не меняет среду This 
            i := "Timer_"+hb_ntos(ky)  // имя события 
            _pPost(i, ky, cn) 
            //_pPost(ky, ky, cn) 
            //(App.Object):PostMsg(ky, ky, cn)  // свое событие у timer-а 
            //IF ky == 9 
            //   (App.Object):PostMsg(ky,  0, cn)  // 1.свое событие у timer-а 
            //ELSE 
            //_pPost("Timer_All", ky, cn) 
            //   (App.Object):PostMsg(10, ky, cn) // 2.одно событие для 3-х timer-ов, 
            //ENDIF 
         ENDIF                                
 ... 
 

 
 Прилагаемый пример сделан на основе APP_OOPREPORT\demo.prg, на кнопку Print  
 окни выборки-отчета Report сделал вызов AlertInfo(), вместо MsgInfo(), что бы 
 показать как работает фокус на этих окнах, т.к. окно AlertInfo() это hmg, а 
 окно MsgInfo() - нет. 
 Правил файлы: 
 - h_controlmisc2.prg 
 ~~~~~~~~~~~~~~~~~~~~ 
 ... добавил, пропущенные свойства в DEFINE TBROWSE 
       ON GOTFOCUS  oParam:bOnGotFocus                           ; 
       ON CHANGE    oParam:bOnChange                             ; 
       ON LOSTFOCUS oParam:bOnLostFocus                          ; 
       ON DBLCLICK  oParam:bOnDblClick                           ; 
 ... 
  
 - h_events.prg 
 ~~~~~~~~~~~~~~ 
 ... добавил код 
 STATIC s_bEvents, s_lEvents := .F. 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION Set_bEvents ( bBlock ) 
 *-----------------------------------------------------------------------------* 
  
    IF HB_ISCHAR( bBlock ) .and. "(" $ bBlock 
       bBlock := hb_ULeft( bBlock, hb_UAt( "(", bBlock ) - 1 ) 
    ENDIF 
    s_lEvents := !Empty( bBlock ) 
  
 RETURN ( s_bEvents := bBlock ) 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION Events ( hWnd, nMsg, wParam, lParam ) 
 *-----------------------------------------------------------------------------* 
 ... 
    IF s_lEvents 
       IF HB_ISBLOCK( s_bEvents )     // could be a static function 
          IF !Empty( Eval( s_bEvents, hWnd, nMsg, wParam, lParam ) ) 
             RETURN 1 
          ENDIF 
       ELSEIF HB_ISCHAR( s_bEvents )  // Can't be a static function 
          IF !Empty( hb_ExecFromArray(s_bEvents, {hWnd, nMsg, wParam, lParam}) ) 
             RETURN 1 
          ENDIF 
       ENDIF 
    ENDIF 
 ... 
 Задавать свой обработчик можно так 
 1.   Set_bEvents("App_OnEvents")                // NO static function 
 2.   Set_bEvents( {|...| App_OnEvents(...) } )  // static function 
 Во втором случае обработчик может быть STATIC FUNCTION, по мне,  
 предпочтительнее, т.е. 
 STATIC FUNCTION App_OnEvents( hWnd, nMsg, wParam, lParam ) 
 ... 
  
 - h_objects.prg 
 ~~~~~~~~~~~~~~~ 
 ... добавлена возможность задавать не только числом, но символьной мнемоникой: 
    WITH OBJECT App.Object 
     // set events App\Program begin 
     :Event({ 1, "Timer_1"}, {|oa,ky,nn,cnam|   // таймер 1 
 ... 
     :Event({ 2, "Timer_2"}, {|oa,ky,nn,cnam|   // таймер 2 
 ... 
     :Event({ 1, 'отчет First'}, {|ow,ky| Report(ow, ky) } ) 
     :Event({ 2, 'отчет Last' }, {|ow,ky| Report(ow, ky) } ) 
 ... 
 активация событий посылкой сообщения так 
     // App.Object 
     _pPost(1, nParam, xParam) 
     _pPost("Timer_1", nParam, xParam) 
     _pPost(2, nParam, xParam) 
     _pPost("Timer_2", nParam, xParam) 
     // This.Object 
     :UserKeys( VK_1, {|ob| _wPost('отчет First'  , ob:cParentWnd) } )  
     или 
     :UserKeys( VK_1, {|ob| _wPost(1, ob:cParentWnd) } )  
     :UserKeys( VK_2, {|ob| _wPost(2, ob:cParentWnd) } )  
     или 
     :UserKeys( VK_2, {|ob| _wPost('отчет Last'   , ob:cParentWnd) } )  
      ON KEY SHIFT+1 ACTION _wPost('отчет First'  )  
     или 
      ON KEY SHIFT+1 ACTION _wPost(1)  
      ON KEY SHIFT+2 ACTION _wPost(2)  
     или 
      ON KEY SHIFT+2 ACTION _wPost('отчет Last'   )  
 ... 
 В прилагаемом примере показано это 
  
 - h_objmisc.prg 
 ~~~~~~~~~~~~~~~ 
 ... поправлены ф-ии и добавлены новые 
     _pPost(nEvent, nParam, xParam) - активация событий для App.Object 
     _pSend(nEvent, nParam, xParam) - активация событий для App.Object 
     _oThis() - снимок текущей среды This в oHmgData(), формирование переменных 
                аналогов _HMG_This... ( o := oTis ): 
                   o:FormIndex       
                   o:EventType       
                   o:Type            
                   o:Index           
                   o:FormName        
                   o:ControlName                           
                   o:FocusedForm     
                   o:FocusedControl  
                   o:ControlCargo        
                   o:ControlHandle       
                   o:ControlParentHandle 
                   o:ControlParentName   
                   o:FormCargo         
                   o:FormHandle        
                   o:FormParentHandle  
                   o:FormObject 
                если o:FocusedForm и o:FocusedControl имеют значение (фокус на hmg), 
                а o:FormName не задано или задано, но др. именем, то все переменные 
                объекта oThis приводятся к значениям от o:FocusedForm, только 
                среда окна, не контрола. Преременные _HMG_This... по умолчанию 
                не меняются, но их можно принудительно привести в соответствие 
                переменным объекта oThis. Для этого надо в функция получения 
                использовать параметр lSets может принимать значения: 
                   0  - вернуть все как есть, без приведения к переменной o:FocusedForm 
                  .F. - привести только внутренние переменные oThis к значениям от 
                        переменной o:FocusedForm 
                  .T. - привести все переменные, включая _HMG_This..., к значениям  
                        от переменной o:FocusedForm 
 В прилагаемом примере показано использование _oThis(), параметры 
 FUNCTION _oThis( oThis, lSets )      // Snapshot of current data This or Sets 
 ... 
 - h_tbrowse.prg 
 ~~~~~~~~~~~~~~~ 
 ... 
 METHOD LostFocus( hCtlFocus ) CLASS TSBrowse 
 ... 
    IF ! Empty( ::bLostFocus ) 
       Eval( ::bLostFocus, hCtlFocus, Self )  //!!! правка 
    ENDIF                          // ^^^^ 
 ... 
 В методе ::GotFocus( hCtlLost ) и ::LostFocus( hCtlFocus ) сторическое  
 не соответсвие параметров  
    IF ::bGotFocus != NIL 
       Eval( ::bGotFocus, Self, hCtlLost ) 
    ENDIF              // ^^^^