Dim WinMse As POINTAPI

Type POINTAPI

    X_Pos As Long

    Y_Pos As Long

End Type



Declare Dynamic Library "User32"

    Function GetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long)

    Function SetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

    Function SetWindowPos& (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

    Function GetAsyncKeyState% (ByVal vkey As Long)

    Function GetCursorPos (lpPoint As POINTAPI)

    Function SetCursorPos (ByVal x As Integer, ByVal y As Integer)

End Declare



Dim As Integer setxy, DragXPos, DragYPos, fw, fh, WinWidth, x, y, oldxpos, oldypos, lb

Width 50, 25

Do: Loop Until _ScreenExists

GWL_STYLE = -16 ' Borderless window.

ws_border = &H800000

WS_VISIBLE = &H10000000

hwnd& = _WindowHandle

winstyle& = GetWindowLongA&(hwnd&, GWL_STYLE)

_Delay .25

a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& And WS_VISIBLE)

a& = SetWindowPos&(hwnd&, 0, 0, 200, 400, 0, 39)

Locate 1, 1: Color 0, 7: Print Space$(_Width); ' Add a cheapo homemade title bar.

fw = _FontWidth: fh = _FontHeight

WinWidth = _Width * fw

x = _ScreenX: y = _ScreenY

Do

    _Limit 30

    If GetAsyncKeyState(1) < 0 Then ' Poll windows mouse.

        If lb = 0 Then lb = 1 ' Left mouse button key is down.

    Else

        If lb Then ' Disengage drag.

            setxy = SetCursorPos(x + DragXPos, y + DragYPos)

            lb = 0: DragXPos = 0: DragYPos = 0

        End If

    End If

    z& = GetCursorPos(WinMse) ' Get the windows mouse cursor position.

    If lb Then

        If DragXPos Then ' Drag is active so let's see if the window should be moved.

            If WinMse.X_Pos <> oldxpos Or WinMse.Y_Pos <> oldypos Then ' Move window if on title bar and mouse cursor has moved.

                j1% = (WinMse.X_Pos - oldxpos)

                j2% = (WinMse.Y_Pos - oldypos)

                x = x + j1%: y = y + j2%

                _ScreenMove x, y ' Window moves here.

                setxy = SetCursorPos(x + DragXPos, y + DragYPos) ' Mouse cursor re-aligns here.

            End If

        Else ' Set drag cursor position in title bar.

            If WinMse.Y_Pos >= _ScreenY And WinMse.Y_Pos <= _ScreenY + fh Then

                If WinMse.X_Pos >= _ScreenX And WinMse.X_Pos <= _ScreenX + WinWidth Then

                    x = _ScreenX: y = _ScreenY ' Cloumn and row of desktop occupied by our program window.

                    DragXPos = (WinMse.X_Pos - x) ' Drag initiation column

                    DragYPos = (WinMse.Y_Pos - y) ' Drag initiation row

                End If

            End If

        End If

    End If

    If Len(InKey$) Then System

    oldypos = WinMse.Y_Pos: oldxpos = WinMse.X_Pos ' Monitor last mouse cursor position.

Loop

Declare Dynamic Library "User32"

    Function GetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long)

    Function SetWindowLongA& (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

    Function SetWindowPos& (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

End Declare



Width 50, 25

Do: Loop Until _ScreenExists

GWL_STYLE = -16

ws_border = &H800000

WS_VISIBLE = &H10000000

_Title "No Border"

hwnd& = _WindowHandle

winstyle& = GetWindowLongA&(hwnd&, GWL_STYLE)

a& = SetWindowLongA&(hwnd&, GWL_STYLE, winstyle& And WS_VISIBLE)

a& = SetWindowPos&(hwnd&, 0, 0, 200, 400, 0, 39)







Do

    k = _KeyHit

    x = _ScreenX: y = _ScreenY

    Select Case k

        Case 19200: _ScreenMove x - 10, y

        Case 19712: _ScreenMove x + 10, y

        Case 18432: _ScreenMove x, y - 10

        Case 20480: _ScreenMove x, y + 10

    End Select

    _Limit 30

    Print "Much";

    Print " easier";

    Print " than";

    Print " Pete's";

    Print " method!";

    _Display

Loop Until k = 27

Dim As Integer WinWidth, fw, fh, WinX, WinY, lb

_Delay .25

_ScreenHide

_Delay .25

tmp& = _ScreenImage

imgdesk& = _CopyImage(tmp&, 33)

_FreeImage tmp&

Width _DesktopWidth \ 8 + 8, _DesktopHeight \ 16 - 2

_Font 16

_ScreenMove -16, -32

_ScreenShow

WinWidth = 25: fw = _FontWidth: fh = _FontHeight

t& = _NewImage(100, 150, 32)

_Dest t&

Cls , _RGB32(190, 190, 190)

Line (0, 0)-(WinWidth * _FontWidth, _FontHeight), _RGB32(0, 0, 255), BF ' Title bar.

win& = _CopyImage(t&, 33)

_FreeImage (t&)

_Dest 0

WinX = 30: WinY = 15

Locate , , 0

Do

    _Limit 60

    _PutImage (0, 0), imgdesk&

    _PutImage ((WinX - 1) * fw, (WinY - 1) * fh), win&

    While _MouseInput: Wend

    mx = _MouseX

    my = _MouseY

    lb = _MouseButton(1)

    If lb Then

        If Drag Then ' Drag is active so let's move the window.

            WinX = mx - Drag: WinY = my

        Else ' Set drag cursor position in title bar.

            If mx >= WinX And mx <= WinX + WinWidth And my >= WinY And my <= WinY + 1 Then

                Drag = mx - WinX

            End If

        End If

    Else

        If Drag Then Drag = 0

    End If

    If Len(InKey$) Then System

    Rem If Drag Then _MouseMove WinX + Drag, WinY

    _Display

Loop

(04-09-2025, 11:47 PM)Pete Wrote: ...

For QB64 the only things I can come up with are using _MOUSEMOVE maybe with _MOUSEHIDE and _MOUSESHOW or doing something really off-the-wall like hide the mouse and glue a hardware image of the mouse pointer to the title bar. Remove the image and show the mouse when the drag event is over. 

...

Pete