Error BASE/1004 Message not found: TWNDDATA:EVENT Args: [1] = O TWNDDATA 
 --------------------------------- Stack Trace --------------------------------- 
 Called from __ERRRT_SBASE(0) 
 Called from TWNDDATA:ERROR(0) 
 Called from (b)HBOBJECT(0) 
 Called from TWNDDATA:MSGNOTFOUND(0) 
 Called from TWNDDATA:EVENT(0) 
 Called from MAIN(205) in module: Source\main.prg 

   DEFINE WINDOW Form_Main                ; 
       AT 0,0 WIDTH 640 HEIGHT 480         ; 
       TITLE cTitle  ICON cIcon            ; 
       MAIN NOSHOW                         ; 
       NOMAXIMIZE NOSIZE NOCAPTION         ; 
       ON INIT { ||  DoEvents(), _wPost(0) }  ;  
       ON INTERACTIVECLOSE { || IIF( lStaticErrorClose, MyExit(), Nil ) }  
   ? PROCNL(), "внутри DEFINE WINDOW Form_Main" 
 ..... 
       WITH OBJECT This.Object 
          :Event( 0, {|  | _logfile(.t.,"----[ Событие 0 ]--- " + ProcNL() ) ,; 
                                 MsgInfo("Запуск события 0"), MyInitForm()  } )    // строка 205 
 ..... 
    END WINDOW 
  
    Form_Main.Timer_1.Enabled := .F. // ОТКЛЮЧИТЬ таймер 
    ? PROCNL(), "_DefineSplashWindow()" 
    _DefineSplashWindow( "Form_Splash",,,,, "SPLASH", 10,  {|| IIF( !lStaticErrorClose, Addition_MainForms(), Nil ) } ) 
  
    ACTIVATE WINDOW Form_Splash, Form_Main 
  
 Return Nil

  Вызов из: MAIN(178) --> Source\main.prg   внутри DEFINE WINDOW Form_Main    
   Вызов из: MAIN(230) --> Source\main.prg   _DefineSplashWindow()    
   Вызов из: _DEFINESPLASHWINDOW(266) --> Source\main.prg    
   Вызов из: _SPLASHDELAY(334) --> Source\main.prg  
 и т.д. 

  Вызов из: MAIN(161) --> Source\main.prg   M->aRunCheck=  ARRAY[23]    
   Вызов из: MAIN(167) --> Source\main.prg   .F.    
   Вызов из: MAIN(178) --> Source\main.prg   внутри DEFINE WINDOW Form_Main  
 ====================> ОШИБКА при завершении программы ! MyExitError() <=====   
 Error BASE/1004  Message not found: TWNDDATA:EVENT 
    Args: 
      [1] = O   TWNDDATA 
 Called from __ERRRT_SBASE(0) 
 Called from TWNDDATA:ERROR(0) 
 Called from (b)HBOBJECT(0) 
 Called from TWNDDATA:MSGNOTFOUND(0) 
 Called from TWNDDATA:EVENT(0) 
 Called from MAIN(206) in module: Source\main.prg

Error BASE/1004  Message not found: TWNDDATA:EVENT 
    Args: 
      [1] = O   TWNDDATA 
 Called from __ERRRT_SBASE(0) 
 Called from TWNDDATA:ERROR(0) 
 Called from (b)HBOBJECT(0) 
 Called from TWNDDATA:MSGNOTFOUND(0) 
 Called from TWNDDATA:EVENT(0) 
 Called from MAIN(204) in module: Source\main.prg 
 

    SET EVENTS FUNCTION TO MyEventsHandler  // проверка версии программы  
  
    DEFINE WINDOW Form_Main                  ; 
       MAIN NOSHOW                           ; 
    .... 
      // общее событие для вызова из других программ 
          :Event(111, {|ow,xPar,cdata| ; 
                           cdata := hb_defaultValue(cdata, "")                       ,; 
                           _logfile(.t.,"----[ Событие 111 ]--- " + ProcNL() )       ,; 
                           _logfile(.t.,"   ow=",ow,"xPar=",xPar,"cdata=",cdata )    ,; 
                           _logfile(.t.,"   ow:Name",ow:Name,"ow:Handle",ow:Handle ) ,; 
                           OnWmCopyData(cData)      } )                                // строка 204  
 .... 
 // Обработчик событий программы 
 FUNCTION MyEventsHandler( hHwnd, nMsg, wParam, lParam ) 
    LOCAL cData, nDataID 
  
    IF nMsg == WM_COPYDATA 
  
       cData := GetMessageData( lParam, @nDataID ) 
       DO EVENTS 
  
       // общее событие для вызова из других программ с формы Form_Main 
       _wPost(111, "Form_Main", cData) 
      
      RETURN 1    // выполненно nMsg == WM_COPYDATA, обрабатывать nMsg больше не надо 
  
    ENDIF                  
  
 RETURN Events( hHwnd, nMsg, wParam, lParam)

 
  FUNCTION MyEventsHandler( hHwnd, nMsg, wParam, lParam )  
     LOCAL cData, nDataID, oWnd 
    
     IF nMsg == WM_COPYDATA  
    
        cData := GetMessageData( lParam, @nDataID )  
        DO EVENTS  
    
        // общее событие для вызова из других программ с формы Form_Main  
        oWnd := _WindowObj( "Form_Main" ) 
        IF HB_ISOBJECT(oWnd) ; _wPost(111, oWnd, cData)  
        ENDIF 
        
       RETURN 1    // выполненно nMsg == WM_COPYDATA, обрабатывать nMsg больше не надо  
    
     ENDIF                   
    
  RETURN Events( hHwnd, nMsg, wParam, lParam)

   //SET EVENTS FUNCTION TO MyEventsHandler  // проверка версии программы   
 

Error BASE/1001 Неизвестная функция: EVENTS Args: [1] = N 723514 [2] = N 129 [3] = N 0 [4] = N 1701896  
  --------------------------------- Stack Trace ---------------------------------  
  Called from EVENTS(0)  
  Called from INITWINDOW(0)  
  Called from _DEFINEWINDOW(0)  
  Called from MAIN(164) in module: Source\main.prg 

   DEFINE WINDOW Form_Main                  ; 
       AT 0,0 WIDTH 640 HEIGHT 480           ; 
       TITLE cTitle  ICON cIcon              ; 
       MAIN NOSHOW                           ; 
       NOMAXIMIZE NOSIZE NOCAPTION           ; 
       ON INIT { || IniGetPosWindow(,,"MAIN"), MyInitForm() }  ;  
       ON INTERACTIVECLOSE { || IIF( lStaticErrorClose, MyExit(), Nil ) }  // строка 164

 
   DEFINE WINDOW &cFormName  At 0, 0      ; 
   WINDOWTYPE STANDARD ; 
    .... 
      _HMG_InplaceParentHandle :=  ThisWindow.Handle   
    ... 
   END WINDOW  
     ....  
    _HMG_InplaceParentHandle := 0 

 
   DEFINE WINDOW Form_SelDim 
      .... 
       ON RELEASE {|| _logfile(.t., SPACE(8)+"+-o-+ :Event(99)"+ProcNL(),"ON RELEASE =", 1, "Завершена работа формы=",cFormName ) ,;  
                      _logfile(.t., SPACE(8)+"+-o-+ Form:", HMG_GetForms(), HB_ValToExp(HMG_GetForms()) ), DoEvents() }  

      +-o-+ :Event(99)Вызов из: (b)FORM_SELDIM2(80) --> Sel_Dim_Hmg2frm.prg   ON RELEASE=1  Завершена работа формы=Form_SelDim 
         +-o-+ Form:  ARRAY[6] { ...., "Form_SeekAdr", "Form_SelDim"}  

 
 DO WHILE IsWindowDefined(Form_SelDim) 
    Form_SelDim.Release 
 ENDDO 
 

 
       :UserKeys(VK_RETURN, {|ob| _wPost( 2, ob:cParentWnd), .F. }) 
  
 заменить на 
  
       :UserKeys(VK_F10, {|ob| _wPost( 2, ob:cParentWnd), .F. })