2002-09-03 20:15

'From: "Marco" <m.waterman@h...> Tue Sep 3, 2002  6:18 am
'keep the left mousebutton down onto the form and move it. With me the form moves.

     CONST WM_syscommand=&h112
     CONST sc_move=&hF012

     DECLARE FUNCTION ReleaseCapture LIB "user32" ALIAS "ReleaseCapture" () AS LONG
     DECLARE SUB movecontrol(Button%, X%, Y%, Shift%)
     DECLARE SUB Esc

     CREATE AForm AS QFORM
      onmousedown=movecontrol
      Center
      Height = 37
      Width = 56
      Borderstyle = 0
      CREATE Stop AS QPANEL
       COLOR = &H999999
       CAPTION = "Quit"
       OnClick = Esc
       Width = 25
       Height = 15
      END CREATE
     END CREATE
     AForm.SHOWMODAL
     SUB Esc
      AForm.CLOSE
     END SUB
     SUB movecontrol(Button%, X%, Y%, Shift%)
      releasecapture
      sendmessage(aform.handle,Wm_syscommand,sc_move,0)
     END SUB

2002-09-03 20:15