.在屏幕上滑动时候
f(st_eA == 2)
{
.计算当前滑动的距离，如果滑动距离短就不移动了
s-(st_rX, sss.rX, x)
s-(st_rY, sss.rY, y)
.判断是否够格移动悬浮
f(sss.rXY == true || x>80 || x<-80 || y>80 || y<-80)
{
.记录本次直到结束释放触屏都可移动悬浮
sss rXY = true
.悬浮拖动的位置偏移
s-(40, st_rX)
s-(80, st_rY)
.设置悬浮位置
us(sss.v, "x", st_rX)
us(sss.v, "y", st_rY)
.刷新悬浮
uxf(sss.v)
}
}
else f(st_eA == 0)
{
.当按下屏幕时候记录开始的坐标
sss rX = st_rX
sss rY = st_rY
.初始化
sss rXY = false
}
//把上面代码写入悬浮界面要滑动的控件的触屏监听事件里面
//悬浮返回赋值改成sss.v
//如果代码不会使用请加群求助