PureBoard

Code: Alles auswählen

OpenWindow(0, 300, 300, 300, 300, "", #PB_Window_BorderLess|#WS_SIZEBOX)
WindowBounds(0, 300, 300, 300, 300)
Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_CloseWindow
    Quit = 1
  EndIf
  If Event = #WM_LBUTTONDOWN
    SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
  EndIf
Until Quit > 0

Code: Alles auswählen

EnableExplicit

Define EventID
Global WNDPROC

Procedure WNDPROC(hWnd, uMsg, wParam, lParam)
  Protected CWPResult = CallWindowProc_(WNDPROC, hWnd, uMsg, wParam, lParam)
  
  Select uMsg
    Case #WM_NCHITTEST
      Select CWPResult
        Case #HTLEFT To #HTBOTTOMRIGHT
          ProcedureReturn 0
      EndSelect
  EndSelect

  ProcedureReturn CWPResult
EndProcedure


If OpenWindow(0, 0, 0, 500, 400, "", #PB_Window_BorderLess | #WS_SIZEBOX | #PB_Window_ScreenCentered)
  WNDPROC = SetWindowLongPtr_(WindowID(0),#GWL_WNDPROC,@WNDPROC())
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #WM_LBUTTONDOWN
      SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf