#22003/11/28 13:21:28
文本双击滚动,单击暂停的程序
Property pScrolling
Property pMyMem
on beginsprite me
pScrolling=0
pMyMem = sprite(me.spritenum).member
pMyMem.scrollTOP =-sprite(me.spritenum).height
end
on mouseup me
---切换滚动状态,双击滚动,单击暂停
if the doubleclick then
pScrolling=not pScrolling
else
pScrolling=0
end if
end
on exitframe me
if pScrolling then
tempScroll= pMyMem.scrollTOP
tempScroll=tempScroll+1
--如果滚动超出视野,重新定位页顶距。
if tempScroll > pMyMem.height then
tempScroll = -sprite(me.spritenum).height
end if
pMyMem.scrollTOP =tempScroll
end if
end
改动一下就能实现你的文本的思想