XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster durch Mausklick in den Innen(Client)-Bereich bewegen
PRFellow-Vorlage
Autor: Thomas Hölzer
Ein Fenster bewegen durch Klick an beliebiger Stelle
Benötigt Profan 6.x (32)
Das Abfragen von Messages ist hier besser
als die profaninternen Mausfunktionen bzw. Systemvariablen.
Def ReleaseCapture(0) !USER32,ReleaseCapture
Declare ende%
Print         Fenster mit Linksklick bewegen - Rechtsklick beendet

Whilenot ende%

    Waitinput

    If Equ(%message,$201) 	 WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter Wert: ist besser als $0F010 (SC_MOVE)
        ReleaseCapture()	 funktioniert auch ohne, ist aber besser so
        UseCursor 0

    ElseIf Equ(%message,$204)  WM_RButtonDown

        Let ende%=1

    EndIf

Wend