Director 动态事件传递（1）

现在的位置: 首页 >> 多媒体 >> Director >> Director 动态事件传递（1）


	添加时间:2005-10-29 来源:网教中国作者: unknown

Director 动态事件传递（1）

Director 动态事件传递
　　有时在Director开发过程中会遇到一些棘手的问题，其中的原因之一是由于行为中包含有某些“陷阱”事件，比如点击了一个带有行为的角色，那么此点击事件将停滞在此角色上，虽然你想让其下的角色也能够识别并对事件做出响应。

　　下面的样本文件演示了这个问题：如果你点击了上面的角色，则只能获得从上面角色发送来的消息，即使你的点击碰巧发生在两个角色交叠的范围之内。

播放，以上示例，需下载此插件。点击下载插件

　　虽然你想让鼠标事件通过角色层向下传递，但由于Director在行为中获得事件的方式，这一点根本无法做到。例如，使用pass命令不会有任何效果。

　　或许你会想到使用sendSprite命令告诉位于当前角色下面的任何角色：一个事件已经发生，需要做出适当的响应。

　　或许你想让行为做这样的事情：使用交叠测试来寻找其下的角色，即使被上方的角色遮挡，仍可以将点击事件传递给下方的角色。

PROPERTY pnIntersectSprite

on beginSprite me
me .FindLowerSprite()
END beginSprite

on mouseUp me
me .TransmitClick()
END mouseUp

on FindLowerSprite me
　　 nSprite = me . spriteNum - 1
　　 rMyRect = sprite ( me . spriteNum ). rect
　　 pnIntersectSprite = 0
repeat with nTest = nSprite down to 1
　　　　 rTestRect = sprite (nTest). rect
　　　　 rIntersect = intersect ( rMyRect, rTestRect )
if rIntersect <> rect ( 0 , 0 , 0 , 0 ) then
　　　　　　 pnIntersectSprite = nTest
exit repeat
end if
end repeat
END FindLowerSprite

on TransmitClick me
if pnIntersectSprite <> 0 then
sendSprite ( pnIntersectSprite, #mouseUp )
end if
END TransmitClick

　　初看起来这可能是一个具有可行性的解决方案，但如果你点击下面样本文件中的红色矩形，将会看到仍然存在的一些问题。

播放，以上示例，需下载此插件。点击下载插件

　　看到了吗？不管你在角色2中的何处点击，角色1都非常“警惕”。也就是说，虽然没有直接点击两角色交叠的地方，但程序认为你这样做了。

　　这便是问题所在，而要想解决此问题，首先需要查明给出角色是否真的和一个附带此行为的角色相交叠，其次必须确定当事件被传递时下面的角色是否碰巧位于鼠标下方，如果不是的话就不将此事件发送给下面的角色层。

PROPERTY pnIntersectSprite

on beginSprite me
me .FindLowerSprite()
END beginSprite

on mouseUp me
me .TransmitEvent( #mouseUp )
END mouseUp

on FindLowerSprite me
　　 nSprite = me . spriteNum - 1
　　 rMyRect = sprite ( me . spriteNum ). rect
　　 pnIntersectSprite = 0
repeat with nTest = nSprite down to 1
　　　　 rTestRect = sprite (nTest). rect
　　　　 rIntersect = intersect ( rMyRect, rTestRect )
if rIntersect <> rect ( 0 , 0 , 0 , 0 ) then
　　　　　　 pnIntersectSprite = nTest
exit repeat
end if
end repeat
END FindLowerSprite

on TransmitEvent me , yEvent
if pnIntersectSprite <> 0 then
　　　　 pMousePoint = the mouseLoc
　　　　 rTestRect = sprite (pnIntersectSprite). rect
if pMousePoint. inside ( rTestRect ) then
sendSprite ( pnIntersectSprite, yEvent )
end if
end if
END TransmitEvent

　　由于确定了单击发生时鼠标是否位于下层角色之上，上面的行为将给出更可靠的结果，下面的样本文件动态演示了这一点。

播放，以上示例，需下载此插件。点击下载插件

上一篇:Director 动态事件传递（2）下一篇:Lingo应用之repeat while

大部分文章摘自网上，如有侵犯您的权益请与我们联系，我们会第一时间进行处理，谢谢!

[ 打印文章 ] [ 关闭窗口 ]