各位大侠,我想用鼠标点燃蜡烛。具体方案为:
屏幕一部分为一团火焰,鼠标形状为火柴状。当鼠标移向火焰并单击时,光标就变成燃着的火柴的样式,松开左键,火焰又熄灭。当燃着的光标移到屏幕上另一处的蜡烛上时,蜡烛就被点燃了。
求实现方法,讲讲用什么方法实现就有分。谢谢各位!
屏幕一部分为一团火焰,鼠标形状为火柴状。当鼠标移向火焰并单击时,光标就变成燃着的火柴的样式,松开左键,火焰又熄灭。当燃着的光标移到屏幕上另一处的蜡烛上时,蜡烛就被点燃了。
求实现方法,讲讲用什么方法实现就有分。谢谢各位!
记录蜡烛头(和坤小名...蜡头儿...哈哈)的坐标.
再准备每个烛头点燃的图片. 当鼠标移动到蜡头的区域(坐标判断, OnMouseMove)时, 在相应的区域绘制点燃的图片...over.
屏幕一部分为一团火焰==>用一TImage,如果你要好的效果,用TGifImager控件,它支持透明GIF动画
鼠标形状为火柴状==>制作一火柴状Cursor
当鼠标移向火焰并单击时:用Image OnMouseDown
光标就变成燃着的火柴的样式==>制作一燃着的火柴Cursor
松开左键==>Image OnMouseUp
火焰又熄灭==>改Image为火焰熄灭图
当燃着的光标移到屏幕上另一处的蜡烛上时==>另一个TImage,它为蜡烛图,用它的OnMouseMove判光标是否移入
蜡烛就被点燃了==>将上面的TImage换成蜡烛就点燃图
看着总觉得别扭……
不过这也是目前最好的办法了
佩服佩服!
但小弟delphi所学甚是有限,望不辞辛劳,不吝赐教,把主要事件的源码设计一下。(火焰为TImage1,蜡烛为TImage2,火柴状cursor设为cursor1,燃着火柴为cursor2,熄灭的蜡烛图为Image1,燃着的蜡烛图为Image2)