;Autor: netmaestro

EnableExplicit

Define EventID

Procedure WSCB(hWnd.l,Message.l,wParam.l,lParam)
  Protected *np.NCCALCSIZE_PARAMS
  
  Select Message
    Case #WM_NCCALCSIZE
      *np.NCCALCSIZE_PARAMS = lparam
      
      With *np\rgrc[0]
        ;\left    = *np\lppos\x
        \top     = *np\lppos\y + 50
        ;\right   = *np\lppos\x + *np\lppos\cx
        ;\bottom  = *np\lppos\y + *np\lppos\cy
      EndWith
      
  EndSelect
  
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(1,0,0,WindowWidth(0),50,LSet("",85,"_")+Chr(13)+Chr(10)+"Über diese Linie kann das Fenster mit der Maus verschoben werden.",#PB_String_BorderLess|#ES_MULTILINE)
  
  SetWindowCallback(@WSCB())
  SetWindowPos_(WindowID(0),0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_NOZORDER|#SWP_FRAMECHANGED)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf