Delphi下雪动画特效.rar

Delphi下雪动画特效，一个十分漂亮的下雪场景动画，雪花飘落在屏幕的窗口上面，窗口听状态栏、标题栏都会落满雪花，看上去很气派。参数设置：
　　 Point: TPoint; // 雪点位置
　　 Color: Integer; // 先前颜色
　　 Speed: Integer; // 下落速率
　　 nMove: Integer; // 下落距离
　　 Stick: Integer; // '粘连'度
　　 SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组
　　 hTimer: Integer; // '随机风向'时钟句柄
　　 CrWind: Integer; // 当前'风向' ( -1 ~ 1 )
　　 CrStep: Integer; // 当前循环步数(用于限速)
　　 ScreenWidth, ScreenHeight: Integer; // 屏幕尺寸