Guidance
指路人
g.yi.org
software / rapidq / Examples / Devices / mouse / Drag within form.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
'From:  "Marco" <m.waterman@h...> Mon Sep 2, 2002  8:08 pm
' drag the richedit control inside the form

     CONST WM_syscommand=&h112
     CONST sc_move=&hF012

     DECLARE FUNCTION ReleaseCapture LIB "user32" ALIAS "ReleaseCapture" () AS LONG

     DECLARE SUB movecontrol
     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 320
      Height = 240
      Center
      CREATE B AS QRICHEDIT
        ''left =200
       onmousedown=movecontrol
       text="left click and move me"
      END CREATE
     END CREATE

     Form.SHOWMODAL

     SUB movecontrol
      releasecapture
      sendmessage(b.handle,Wm_syscommand,sc_move,0)
     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2023-2-2  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-09-02 20:17:16