请问如何制作用鼠标点燃蜡烛？

[hustquick]

各位大侠，我想用鼠标点燃蜡烛。具体方案为：
屏幕一部分为一团火焰，鼠标形状为火柴状。当鼠标移向火焰并单击时，光标就变成燃着的火柴的样式，松开左键，火焰又熄灭。当燃着的光标移到屏幕上另一处的蜡烛上时，蜡烛就被点燃了。
求实现方法，讲讲用什么方法实现就有分。谢谢各位！

[hydonlee]

准备一张底图, 用来显示没有点燃的蜡烛...
记录蜡烛头(和坤小名...蜡头儿...哈哈)的坐标.
再准备每个烛头点燃的图片.

当鼠标移动到蜡头的区域(坐标判断, OnMouseMove)时, 在相应的区域绘制点燃的图片...over.

[柯本]

实现方法:
屏幕一部分为一团火焰==>用一TImage,如果你要好的效果,用TGifImager控件,它支持透明GIF动画
鼠标形状为火柴状==>制作一火柴状Cursor
当鼠标移向火焰并单击时:用Image OnMouseDown
光标就变成燃着的火柴的样式==>制作一燃着的火柴Cursor
松开左键==>Image OnMouseUp
火焰又熄灭==>改Image为火焰熄灭图
当燃着的光标移到屏幕上另一处的蜡烛上时==>另一个TImage,它为蜡烛图,用它的OnMouseMove判光标是否移入
蜡烛就被点燃了==>将上面的TImage换成蜡烛就点燃图

[DumDum]

[Quote=引用 2 楼 keiy 的回复:]
实现方法:
屏幕一部分为一团火焰==>用一TImage,如果你要好的效果,用TGifImager控件,它支持透明GIF动画
鼠标形状为火柴状==>制作一火柴状Cursor
当鼠标移向火焰并单击时:用Image OnMouseDown
光标就变成燃着的火柴的样式==>制作一燃着的火柴Cursor
松开左键==>Image OnMouseUp
火焰又熄灭==>改Image为火焰熄灭图
当燃着的光标移到屏幕上另一处的蜡烛上时==>另一个TImage,它为蜡烛图,用它的OnMouseMove判光标是否移入…
[/Quote]很详细

[gyk120]

[Quote=引用 2 楼 keiy 的回复:]
实现方法:
屏幕一部分为一团火焰==>用一TImage,如果你要好的效果,用TGifImager控件,它支持透明GIF动画
鼠标形状为火柴状==>制作一火柴状Cursor
当鼠标移向火焰并单击时:用Image OnMouseDown
光标就变成燃着的火柴的样式==>制作一燃着的火柴Cursor
松开左键==>Image OnMouseUp
火焰又熄灭==>改Image为火焰熄灭图
当燃着的光标移到屏幕上另一处的蜡烛上时==>另一个TImage,它为蜡烛图,用它的OnMouseMove判光标是否移入…
[/Quote]
其实用Flash做可能会更好一点，换图实在是……
看着总觉得别扭……
不过这也是目前最好的办法了

[hustquick]

非常感谢！
佩服佩服！
但小弟delphi所学甚是有限，望不辞辛劳，不吝赐教，把主要事件的源码设计一下。（火焰为TImage1，蜡烛为TImage2，火柴状cursor设为cursor1，燃着火柴为cursor2，熄灭的蜡烛图为Image1，燃着的蜡烛图为Image2）

[qkhhxkj102]

关注

[gaominjie]

哈哈~估计LZ在讨好哪个MM~~