If ImagesOverlap(Mauszeiger,MouseX(),MouseY(),Fenster,100,100)= 1 And MouseDown(1)= 1 Then
DrawImage Fenster ,MouseX(),MouseY()

Graphics 800, 600, 16, 2
SetBuffer BackBuffer()



   DragStart = False

   Repeat
         
      If MouseDown(1)  And mouseInRect( wx, wy, wx + 200, wy + 200) And (Not DragStart) Then
         DragStart = True
         mxold = MouseX()
         myold = MouseY()
         wxold = wx
         wyold =wy
      End If
      
      If DragStart Then
         wx =  wxold - (mxold - MouseX())
         wy =  wyold - (myold - MouseY())
         If Not MouseDown(1) Then DragStart = False
      End If
      
      Cls            
      Text 0, 0, MouseX()
      Text 0, 10, MouseY()
      Text 0, 20, wx
      Text 0, 30, wy

      
      DrawWindow(wx, wy)
      Flip()
   
   
   
   Until KeyDown(1)


Function DrawWindow(x, y, w = 200, h = 200)

   Rect x, y, w, h, 0
   Rect x + 5, y + 5, w - 10, h - 10, 0
   
   Return mouseInRect (x, y, x + w, y + w)   
End Function


Function mouseInRect (x1, y1, x2, y2)
   mx = MouseX()
   my = MouseY()
   
   If mx < x1 Then Return False
   If mx > x2 Then Return False
   If my < y1 Then Return False
   If my > y2 Then Return False
   Return True
End Function
   

;Beispiel von SpionAtom 20.4.2005

;Standardzeugs am Anfang
Const xr = 800, yr = 600
Graphics xr, yr, 16, 2
SetBuffer BackBuffer()
AppTitle("Drag&Drop (nur ohne Drop)- Beispiel von SpionAtom")
Global mouse_x, mouse_y


;Das Fenster bestehen aus...
Type fenster
   Field x      ;..X-Position
   Field y      ;..Y-Position
   Field w      ;..Breite (Width)
   Field h      ;..Höhe (Height)
   Field n      ;..und Typ (ich habe 3 Typen)
End Type

Global f.fenster

;Ich erschaffe einige neue Fenster
f.fenster = New fenster
f\x = 100
f\y = 200
f\w = 50
f\h = 20
f\n = 0

f.fenster = New fenster
f\x = 200
f\y = 200
f\w = 200
f\h = 200
f\n = 1

f.fenster = New fenster
f\x = 50
f\y = 500
f\w = 100
f\h = 80
f\n = 2

For i = 1 To 10
f.fenster = New fenster
f\x = 600 - i * 12
f\y = 100 + i * 20
f\w = i * 30
f\h = 10
f\n = 0
If i <= 5 Then
f.fenster = New fenster
f\x = 500 + i * 10
f\y = 500
f\w = 8
f\h = 80
f\n = 1
End If
Next




;******************************************************************
   dragStart = False
   Repeat
   
      ;Mauskoordinaten aktualisieren
      mouse_x = MouseX()
      mouse_y = MouseY()
      
      ;Prüfen, ob ein Dragvorgang gestartet wird
      If (MouseDown(1)) And (Not dragStart) Then
         For f = Each fenster
            If mouseInRect(f\x, f\y, f\x + f\w, f\y + f\h) Then
               af.fenster = f
               dragStart = True
               oldmx = mouse_x
               oldmy = mouse_y
               oldfx = f\x
               oldfy = f\y
            End If
         Next
      End If
      
      ;Das entsprechende Fenster Draggen und Droppen
      If dragStart Then
         af\x = oldfx - oldmx + mouse_x
         af\y = oldfy - oldmy +  mouse_y
         If Not MouseDown(1) Then dragStart = False
      End If         
            
   
      ;Alles zeichnen
      Cls
      drawAllFenster()
      Flip()
   
   Until KeyDown(1)
   End
;******************************************************************





;Diese Funktion zeichnet alle Fenster in der Reihenfolge, in der sie in der Type-Liste stehen (also in der
;Reihenfolge, in der sie erschaffen sind)
Function drawAllFenster()
   For f = Each fenster
      drawFenster f\x, f\y, f\w, f\h, f\n
   Next
End Function

;Diese Funktion malt ein Fenster. Sie benötigt Position(x,y), Ausmaße(w,h) sowie den Typ(n)
Function drawFenster(x, y, w, h, n = 0)
   Select n
      Case 1:
         Color 0, 255, 0
         Rect x, y, w, h, 1
         Color 255, 0, 0
         Rect x + 2, y + 2, w - 4, h - 4, 1
         Color 255, 255, 255
         Rect x, y, w, h, 0
         Rect x + 2, y + 2, w - 4, h - 4, 0
      Case 2
         Color 255, 255, 0
         Rect x, y, w, h, 1
         Color 0, 255, 255
         Oval x, y, w, h, 1
         Color 255, 255, 255
         Rect x, y, w, h, 0
         Oval x, y, w, h, 0
      Default:
         Color 255, 0, 255
         Rect x, y, w, h, 1
         Color 255, 255, 255
         Rect x, y, w, h, 0
   End Select
End Function

;Diese Funktion prüft, ob die Maus sich innerhalb des angegebenen Rechtecks befindet und liefert
;entsprechend true oder false zurück
Function mouseInRect (x1, y1, x2, y2)
   If mouse_x < x1 Then Return False
   If mouse_x > x2 Then Return False
   If mouse_y < y1 Then Return False
   If mouse_y > y2 Then Return False
   Return True
End Function