Procedure String_CB1(hwnd, msg, wParam, lParam)
*PointOldEditFunc=GetWindowLong_(hWnd,#GWL_USERDATA)
  If msg=258  
  If wParam=13
  msg=0
  Debug "Нажата кнопка Enter в верхнем поле"
  EndIf
  EndIf
ProcedureReturn CallWindowProc_(*PointOldEditFunc,hwnd, msg, wParam, lParam)  
EndProcedure  

Procedure String_CB2(hwnd, msg, wParam, lParam)
*PointOldEditFunc=GetWindowLong_(hWnd,#GWL_USERDATA)
  If msg=258  
  If wParam=13
  msg=0
  Debug "Нажата кнопка Enter в нижнем поле"
  EndIf
  EndIf
ProcedureReturn CallWindowProc_(*PointOldEditFunc,hwnd, msg, wParam, lParam)  
EndProcedure  

OpenWindow(1,0,0,100,70,"",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
StringGadget(1,10,10,90,20,"")
  *Old_PointOldEditFunc=GetWindowLong_(GadgetID(1), #GWL_WNDPROC)
  SetWindowLong_(GadgetID(1),#GWL_USERDATA, *Old_PointOldEditFunc)
  SetWindowLong_(GadgetID(1), #GWL_WNDPROC, @String_CB1())
StringGadget(2,10,40,90,20,"")
  *Old_PointOldEditFunc=GetWindowLong_(GadgetID(2), #GWL_WNDPROC)
  SetWindowLong_(GadgetID(2),#GWL_USERDATA, *Old_PointOldEditFunc)
  SetWindowLong_(GadgetID(2), #GWL_WNDPROC, @String_CB2())

Repeat  
  Event=WaitWindowEvent()  
Until Event=#PB_Event_CloseWindow