SET NAVIGATION EXTENDED  // вкл.навигацию по Enter дополнительно к кл. TAB 
 ... 
 DEFINE WINDOW MyWnd ...  // описание окна и контролов окна 
  ... 
  ON INIT    ( ... )      // выполняется когда Show окна выполнен в ACTIVATE WINDOW 
  ON RELEASE ( ... )      // выполняется перед разрушением окна 
  ... 
  @ 173,155 TEXTBOX Text_Pass1 HEIGHT 24 WIDTH 190 VALUE cPwd PASSWORD 
  @ 214, 30 LABEL   Label_Pass2 VALUE "Повтор:" WIDTH 120 HEIGHT 24 
  @ 211,155 TEXTBOX Text_Pass2 HEIGHT 24 WIDTH 190 VALUE cPwd2 PASSWORD 
  ... 
  DEFINE BUTTON OK     ... ACTION PressOk()            // действия по окончании ввода 
  DEFINE BUTTON Cancel ... ACTION ThisWindow.Release   // действия по завершению работы с окном 
  ... 
 END WINDOW               // конец описания. ОТОБРАЖЕНИЯ ЕЩЕ НЕТ ! 
 ... 
 ACTIVATE WINDOW MyWnd  // здесь выполняется Show(). ОТОБРАЖЕНИЕ окна появилось и 
                        // включается цикл обработки сообщений из очереди. 
                        // Обработчик - функция Event(hWnd, nMsg, wParam, lParam) 
                        // см. h_events.prg 
 // если попали сюда окна уже нет, ThisWindow.Release уже отработал 
 RETURN 
  
 FUNCTION PressOk() 
 Local cUsr, cPwd, cPwd2 
  cUsr  := GetProperty("MyWnd", "Text_User" , "Value") 
  cPwd  := GetProperty("MyWnd", "Text_Pass1", "Value") 
  cPwd2 := GetProperty("MyWnd", "Text_Pass2", "Value") 
  IF cPwd == cPwd2 
     SaveConfig(cUsr, cPwd)  
  ELSE 
     MsgInfo("Пароли не одинаковы ! Повторите ввод заново !") 
     DoMethod("MyWnd", "Text_Pass1", "SetFocus") 
  ENDIF 
 RETURN 
 

Как заполняются данные на окно в переменных _HMG_aForm... см. h_windows.prg: 
 _DefineWindow(...) 
 ... 
 _HMG_aFormNames      [k] := FormName 
 _HMG_aFormHandles    [k] := FormHandle 
 ... 
  _HMG_aFormMiscData1 [k] := { cTx } 
 ... 
 там же см. другие полезные функции. Пример: 
 IF _IsWindowDefined ( FormName )    // окно есть - можно работать 
 ENDIF 
  
 Пока существуют контролы окна они всегда доступны. 
 Как заполняются данные контрола в переменных _HMG_aControl... см. в h_<Контрол>.prg 
 функцию _Define<Контрол>(...) (где то я это уже писал). Пример: h_grid.prg: 
 _DefineGrid(...) 
 ... 
 _HMG_aControlType          [k] := if ( multiselect , "MULTIGRID" , "GRID" ) 
 _HMG_aControlNames         [k] :=   ControlName 
 _HMG_aControlHandles       [k] :=   ControlHandle 
 _HMG_aControlParenthandles [k] :=   ParentFormHandle 
 ... 
 _HMG_aControlMiscData2     [k] := '' 
 ... 
  
 Как работать с переменными_HMG_aControl... смотри h_controlmisc.prg : 
 _GetValue( ControlName, ParentForm , Index ) 
 _SetValue( ControlName, ParentForm, Value , index ) 
 GetProperty(...) 
 SetProperty(...) 
 DoMethod (...) и т.д. . Пример: 
 IF _IsControlDefined ( ControlName, FormName ) // контрол есть - можно работать 
 ENDIF 
  
 Пример функции подключаемой в контролах по On LostFocus: 
 Function MyLostFocus() 
 Local i, n, h, cFormName, nFormHandle, cControlName, cControlType, nControlHandle 
  h := GetFocus()                        // handle контрола в фокусе 
  i := ascan(_HMG_aControlHandles, h)    // ищем в массиве всех контролов MiniGui 
  IF i == 0; Return                      // не нашли - фокус где то ... 
  ENDIF 
  cControlType   := _HMG_aControlType     
  cControlName   := _HMG_aControlNames    
  cControlHandle := _HMG_aControlHandles  
  n := ascan(_HMG_aFormHandles, _HMG_aControlHandles ) 
  nFormHandle    := _HMG_aFormHandles [n] 
  cFormName      := _HMG_aFormNames   [n] 
  ... 
 Return 
 

 
 Function MyLostFocus() 
 Local k, n, h, cFormName, nFormHandle, cControlName, cControlType, nControlHandle 
  h := GetFocus()                        // handle контрола в фокусе 
  i := ascan(_HMG_aControlHandles, h)    // ищем в массиве всех контролов MiniGui 
  IF i == 0; Return                      // не нашли - фокус где то ... 
  ENDIF 
  cControlType   := _HMG_aControlType    [ i ] 
  cControlName   := _HMG_aControlNames   [ i ] 
  nControlHandle := _HMG_aControlHandles [ i ] 
  nFormHandle    := _HMG_aControlParenthandles [ i ] 
  n := ascan(_HMG_aFormHandles, _HMG_aControlParenthandles [ i ]) 
  nFormHandle    := _HMG_aFormHandles [n] 
  cFormName      := _HMG_aFormNames   [n] 
  ... 
 Return 
 

 
 DEFINE WINDOW MyWnd 
  ... 
  @ 10, 100 LABEL MyLabel VALUE "Hello !" ... 
  DEFINE TIMER MyWndTimer INTERVAL 2000  ACTION MyWndTimer() 
  ... 
 END WINDOW 
 ... 
 Function MyWndTimer() 
 Local  cTx,aFc 
 Static lRu := .T., aFo, aBo 
  IF aFo == NIL 
     aFo := GetProperty("MyWnd", "MyLabel", "FontColor") 
     aBo := GetProperty("MyWnd", "MyLabel", "BackColor") 
  ENDIF 
  IF lRu 
     cTx := "Привет !" 
     aFc := aFo 
  ELSE 
     cTx := "Hello !" 
     aFc := {255, 0, 0} 
     aBc := {255, 0, 0} 
  ENDIF 
  lRu := ! lRu 
  SetProperty("MyWnd", "MyLabel", cTx) 
  SetProperty("MyWnd", "MyLabel", "FontColor", aFc) 
 // SetProperty("MyWnd", "MyLabel", "BackColor", aBc) 
 Return