首页 相关文章 无框窗体移动最简法(程序)

无框窗体移动最简法(程序)

Dimi,x1AsDouble,y1AsDouble,x2AsDouble,y2AsDouble
  PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
  i=1
  x1=X
  y1=Y

EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
  Ifi=1Then
  x2=X-x1 form1.lift
  y2=Y-y1 form1.top
  form1.movex2,y2

EndIf
  EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
  i=0

EndSub

->

[ 查看全文 ]

2016-02-19 标签:

无框窗体移动最简法(程序)的相关文章

手机页面
收藏网站 回到头部