f EventSource()=betragwert1 Then
   If KeyHit(156) Then ;Return-Taste vom Ziffernblock
      ActivateGadget abzug1
   EndIf
EndIf

;ozzi789
;11/05/2012
;move from textfield to textfield with enter key

;.lib "user32.dll"
;GetFocus%():"GetFocus"


Global window,textfield_counter=-1,textfield_current,enter_button
Type textfield
   Field id
   Field tfhandle
End Type


window = CreateWindow("Window", 0, 0, 300, 300, 0, 1)
enter_button = CreateButton ("",3000,3000,0,0,window,4)


tf1=create_textfield(10,10,100,18,window)
tf2=create_textfield(10,30,100,18,window)
tf3=create_textfield(10,50,100,18,window)
tf4=create_textfield(10,70,100,18,window)



Repeat



   
      If WaitEvent(1)=$803 Then End
   
   do_the_magic()

         

Forever


Function do_the_magic()
   Local current_marked
   If WaitEvent(1)=$401 Then
       If EventSource()=enter_button
               current_marked=0
               ;get active one
               For t.textfield=Each textfield
                  If getfocus()= QueryObject(t\tfhandle, 1)
                     current_marked=t\id
                  EndIf
               Next
               ;if its the last one, go for the first one
               If current_marked+1>textfield_counter Then current_marked=-1
               ;get the handle
               For t.textfield=Each textfield
                  If t\id=current_marked+1
                     textfield_current_handle=t\tfhandle
                  EndIf
               Next
                  ;active it
               ActivateGadget(textfield_current_handle)
      End If
   EndIf

End Function


Function create_textfield(x,y,w,h,win)
   tf_handle=CreateTextField(x,y,w,h,win)
   
   
   t.textfield = New textfield
      t\tfhandle=tf_handle
      textfield_counter=textfield_counter+1
      t\id=textfield_counter
   Return tf_handle
End Function