哪位知道delphi安装界面的动画效果是怎么实现的？

vxzv

如图：

comeheres

看截图，CnPack组件包里的CnWaterImage.pas就有实现方法了

1. {******************************************************************************}
   
2. {                       CnPack For Delphi/C++Builder                           }
   
3. {                     中国人自己的开放源码第三方开发包                         }
   
4. {                   (C)Copyright 2001-2012 CnPack 开发组                       }
   
5. {                   ------------------------------------                       }
   
6. {                                                                              }
   
7. {            本开发包是开源的自由软件，您可以遵照 CnPack 的发布协议来修        }
   
8. {        改和重新发布这一程序。                                                }
   
9. {                                                                              }
   
10. {            发布这一开发包的目的是希望它有用，但没有任何担保。甚至没有        }
    
11. {        适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。        }
    
12. {                                                                              }
    
13. {            您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果        }
    
14. {        还没有，可访问我们的网站：                                            }
    
15. {                                                                              }
    
16. {            网站地址：http://www.cnpack.org                                   }
    
17. {            电子邮件：master@cnpack.org                                       }
    
18. {                                                                              }
    
19. {******************************************************************************}
    
20. 
    
21. unit CnWaterImage;
    
22. {* |<PRE>
    
23. ================================================================================
    
24. * 软件名称：界面控件包
    
25. * 单元名称：水波效果图像控件
    
26. * 单元作者：周劲羽 (zjy@cnpack.org)
    
27. * 备    注：
    
28. * 开发平台：PWinXP SP2 + Delphi 5.01
    
29. * 兼容测试：
    
30. * 本 地 化：该单元中的字符串均符合本地化处理方式
    
31. * 单元标识：$Id: CnWaterImage.pas 1146 2012-10-24 06:25:41Z liuxiaoshanzhashu@gmail.com $
    
32. * 修改记录：2008.11.17 V1.1
    
33. *               笑三少增加控制水滴初始半径与荡漾快慢的两个属性
    
34. *           2005.11.22 V1.0
    
35. *               创建控件
    
36. ================================================================================
    
37. |</PRE>}
    
38. 
    
39. interface
    
40. 
    
41. {$I CnPack.inc}
    
42. 
    
43. uses
    
44.   Windows, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls,
    
45.   Math, CnWaterEffect;
    
46. 
    
47. const
    
48.   csDefRandomDelay = 800;
    
49.   csDefRandomBlob = 500;
    
50.   csDefTrackBlob = 100;
    
51.   csDefClickBlob = 250;
    
52.   csDefRadius = 1;
    
53.   csDefInterval = 50;
    
54. 
    
55. type
    
56. 
    
57. { TCnWaterImage }
    
58. 
    
59.   TCnRenderEvent = procedure (Sender: TObject; ABitmap: TBitmap) of object;
    
60. 
    
61.   TCnWaterImage = class(TGraphicControl)
    
62.   {* 水波效果图像控件 }
    
63.   private
    
64.     FPicture: TPicture;
    
65.     FTimer: TTimer;
    
66.     FSrcBmp: TBitmap;
    
67.     FDstBmp: TBitmap;
    
68.     FWater: TCnWaterEffect;
    
69.     FDrawing: Boolean;
    
70.     FRadius : Integer;
    
71.     FRandomDelay: Integer;
    
72.     FTrackBlob: Integer;
    
73.     FClickBlob: Integer;
    
74.     FRandomBlob: Integer;
    
75.     FOnAfterRender: TCnRenderEvent;
    
76.     FOnBeforeRender: TCnRenderEvent;
    
77.     procedure PictureChanged(Sender: TObject);
    
78.     procedure SetPicture(Value: TPicture);
    
79.     procedure UpdateWaterData;
    
80.     procedure OnTimer(Sender: TObject);
    
81.     function GetCanvas: TCanvas;
    
82.     function GetDamping: TWaterDamping;
    
83.     procedure SetDamping(const Value: TWaterDamping);
    
84.     function GetInterval: Cardinal;
    
85.     procedure SetInterval(Value: Cardinal);
    
86.   protected
    
87.     function CanAutoSize(var NewWidth, NewHeight: Integer): Boolean; override;
    
88.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
    
89.       X, Y: Integer); override;
    
90.     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    
91.     procedure Loaded; override;
    
92.     procedure Resize; override;
    
93.     procedure Paint; override;
    
94.   public
    
95.     constructor Create(AOwner: TComponent); override;
    
96.     destructor Destroy; override;
    
97.     procedure ClearWater;
    
98.     {* 清空画面上的水滴效果 }
    
99.     procedure Blob(x, y: Integer; ARadius, AHeight: Integer);
    
100.     {* 在画面上产生一个水滴效果。x, y 为坐标，如果为 -1 表示随机点。ARadius 和
     
101.       AHeight 为初始半径和效果幅度 }
     
102.     property Canvas: TCanvas read GetCanvas;
     
103.     {* 画布属性，只在 OnBeforeRender 事件中有用 }
     
104.   published
     
105.     property Align;
     
106.     property Anchors;
     
107.     property AutoSize;
     
108.     property ClickBlob: Integer read FClickBlob write FClickBlob default csDefClickBlob;
     
109.     {* 点击画面时产生的水滴效果幅度，0 表示禁用 }
     
110.     property Constraints;
     
111.     property Damping: TWaterDamping read GetDamping write SetDamping default csDefDamping;
     
112.     {* 水滴阻尼系数 }
     
113.     property DragCursor;
     
114.     property DragKind;
     
115.     property DragMode;
     
116.     property Enabled;
     
117.     property Radius : Integer read FRadius write FRadius default csDefRadius;
     
118.     {* 水波初始半径，默认为 1 }
     
119.     property Interval : Cardinal read GetInterval write SetInterval default csDefInterval;
     
120.     {* 波纹荡漾快慢的间隔时间，单位毫秒，默认 50 }
     
121.     property ParentShowHint;
     
122.     property Picture: TPicture read FPicture write SetPicture;
     
123.     {* 背景图像 }
     
124.     property PopupMenu;
     
125.     property RandomBlob: Integer read FRandomBlob write FRandomBlob default csDefRandomBlob;
     
126.     {* 随机产生的水滴最大幅度，0 表示禁用 }
     
127.     property RandomDelay: Integer read FRandomDelay write FRandomDelay default csDefRandomDelay;
     
128.     {* 随机产生水滴的延时 }
     
129.     property ShowHint;
     
130.     property TrackBlob: Integer read FTrackBlob write FTrackBlob default csDefTrackBlob;
     
131.     {* 鼠标移动轨迹下水滴的幅度，0 表示禁用 }
     
132.     property Visible;
     
133.     property OnAfterRender: TCnRenderEvent read FOnAfterRender write FOnAfterRender;
     
134.     {* 画面绘制后事件 }
     
135.     property OnBeforeRender: TCnRenderEvent read FOnBeforeRender write FOnBeforeRender;
     
136.     {* 画面绘制前事件 }
     
137.     property OnClick;
     
138.     property OnContextPopup;
     
139.     property OnDblClick;
     
140.     property OnDragDrop;
     
141.     property OnDragOver;
     
142.     property OnEndDock;
     
143.     property OnEndDrag;
     
144.     property OnMouseDown;
     
145.     property OnMouseMove;
     
146.     property OnMouseUp;
     
147.     property OnStartDock;
     
148.     property OnStartDrag;
     
149.   end;
     
150. 
     
151. implementation
     
152. 
     
153. { TCnWaterImage }
     
154. 
     
155. constructor TCnWaterImage.Create(AOwner: TComponent);
     
156. begin
     
157.   inherited Create(AOwner);
     
158.   ControlStyle := ControlStyle + [csReplicatable, csOpaque];
     
159.   FPicture := TPicture.Create;
     
160.   FPicture.OnChange := PictureChanged;
     
161.   FTimer := TTimer.Create(Self);
     
162.   FTimer.Interval := csDefInterval;
     
163.   FTimer.OnTimer := OnTimer;
     
164.   FTimer.Enabled := True;
     
165.   FSrcBmp := TBitmap.Create;
     
166.   FDstBmp := TBitmap.Create;
     
167.   FWater := TCnWaterEffect.Create;
     
168.   FRandomDelay := csDefRandomDelay;
     
169.   FRandomBlob := csDefRandomBlob;
     
170.   FTrackBlob := csDefTrackBlob;
     
171.   FClickBlob := csDefClickBlob;
     
172.   Height := 105;
     
173.   Width := 105;
     
174. end;
     
175. 
     
176. destructor TCnWaterImage.Destroy;
     
177. begin
     
178.   FPicture.Free;
     
179.   FTimer.Free;
     
180.   FSrcBmp.Free;
     
181.   FDstBmp.Free;
     
182.   FWater.Free;
     
183.   inherited Destroy;
     
184. end;
     
185. 
     
186. procedure TCnWaterImage.Paint;
     
187. var
     
188.   Save: Boolean;
     
189. begin
     
190.   Canvas.Lock;
     
191.   if csDesigning in ComponentState then
     
192.     with inherited Canvas do
     
193.     begin
     
194.       Pen.Style := psDash;
     
195.       Brush.Style := bsClear;
     
196.       Rectangle(0, 0, Width, Height);
     
197.     end;
     
198.   Save := FDrawing;
     
199.   FDrawing := True;
     
200.   try
     
201.     if Picture.Graphic <> nil then
     
202.       with inherited Canvas do
     
203.         Draw(0, 0, FDstBmp);
     
204.   finally
     
205.     Canvas.UnLock;
     
206.     FDrawing := Save;
     
207.   end;
     
208. end;
     
209. 
     
210. function TCnWaterImage.CanAutoSize(var NewWidth, NewHeight: Integer): Boolean;
     
211. begin
     
212.   Result := True;
     
213.   if not (csDesigning in ComponentState) or (Picture.Width > 0) and
     
214.     (Picture.Height > 0) then
     
215.   begin
     
216.     if Align in [alNone, alLeft, alRight] then
     
217.       NewWidth := Picture.Width;
     
218.     if Align in [alNone, alTop, alBottom] then
     
219.       NewHeight := Picture.Height;
     
220.   end;
     
221. end;
     
222. 
     
223. procedure TCnWaterImage.Resize;
     
224. begin
     
225.   UpdateWaterData;
     
226.   inherited;
     
227. end;
     
228. 
     
229. procedure TCnWaterImage.UpdateWaterData;
     
230. begin
     
231.   if [csLoading, csDestroying] * ComponentState = [] then
     
232.   begin
     
233.     FDstBmp.Canvas.Lock;
     
234.     FSrcBmp.Canvas.lock;
     
235.     FSrcBmp.Width := Width;
     
236.     FSrcBmp.Height := Height;
     
237.     FSrcBmp.PixelFormat := pf24bit;
     
238. 
     
239.     FDstBmp.Width := Width;
     
240.     FDstBmp.Height := Height;
     
241.     FDstBmp.PixelFormat := pf24bit;
     
242. 
     
243.     FWater.SetSize(Width, Height);
     
244. 
     
245.     if Picture.Graphic <> nil then
     
246.     begin
     
247.       FSrcBmp.Canvas.StretchDraw(ClientRect, Picture.Graphic);
     
248.       FDstBmp.Assign(FSrcBmp);
     
249.     end;
     
250.     FDstBmp.Canvas.UnLock;
     
251.     FSrcBmp.Canvas.Unlock;
     
252.   end;   
     
253. end;
     
254. 
     
255. procedure TCnWaterImage.MouseMove(Shift: TShiftState; X, Y: Integer);
     
256. begin
     
257.   inherited;
     
258.   if PtInRect(Rect(0, 0, Width, Height), Point(X, Y)) then
     
259.   begin
     
260.     if ssLeft in Shift then
     
261.       Blob(X, Y, FRadius, FClickBlob)
     
262.     else
     
263.       Blob(X, Y, FRadius, FTrackBlob);
     
264.   end;
     
265. end;
     
266. 
     
267. procedure TCnWaterImage.MouseDown(Button: TMouseButton; Shift: TShiftState;
     
268.   X, Y: Integer);
     
269. begin
     
270.   inherited;
     
271.   if Button = mbLeft then
     
272.     Blob(X, Y, FRadius, FClickBlob);
     
273. end;
     
274. 
     
275. procedure TCnWaterImage.PictureChanged(Sender: TObject);
     
276. begin
     
277.   if AutoSize and (Picture.Width > 0) and (Picture.Height > 0) then
     
278.     SetBounds(Left, Top, Picture.Width, Picture.Height);
     
279.   UpdateWaterData;
     
280.   if not FDrawing then Invalidate;
     
281. end;
     
282. 
     
283. procedure TCnWaterImage.OnTimer(Sender: TObject);
     
284. var
     
285.   Bmp: TBitmap;
     
286. begin
     
287.   if Enabled and (Picture.Graphic <> nil) then
     
288.   begin
     
289.     if (FRandomDelay > 0) and (FRandomBlob > 0) then
     
290.     begin
     
291.       if Random(Ceil(FRandomDelay / Integer(FTimer.Interval)) + 1) = 0 then
     
292.         Blob(-1, -1, Random(2) + 1, Random(FRandomBlob) + 100);
     
293.     end;
     
294.    
     
295.     if Assigned(FOnBeforeRender) then
     
296.     begin
     
297.       Bmp := TBitmap.Create;
     
298.       try
     
299.         Bmp.Assign(FSrcBmp);
     
300.         FOnBeforeRender(Self, Bmp);
     
301.         FWater.Render(Bmp, FDstBmp);
     
302.       finally
     
303.         Bmp.Free;
     
304.       end;                     
     
305.     end
     
306.     else
     
307.       FWater.Render(FSrcBmp, FDstBmp);
     
308. 
     
309.     if Assigned(FOnAfterRender) then
     
310.       FOnAfterRender(Self, FDstBmp);
     
311. 
     
312.     Invalidate;
     
313.   end;   
     
314. end;
     
315. 
     
316. procedure TCnWaterImage.Blob(x, y, ARadius, AHeight: Integer);
     
317. begin
     
318.   FWater.Blob(x, y, ARadius, AHeight);
     
319. end;
     
320. 
     
321. procedure TCnWaterImage.ClearWater;
     
322. begin
     
323.   FWater.ClearWater;
     
324. end;
     
325. 
     
326. function TCnWaterImage.GetCanvas: TCanvas;
     
327. begin
     
328.   Result := FDstBmp.Canvas;
     
329. end;
     
330. 
     
331. function TCnWaterImage.GetDamping: TWaterDamping;
     
332. begin
     
333.   Result := FWater.Damping;
     
334. end;
     
335. 
     
336. function TCnWaterImage.GetInterval: Cardinal;
     
337. begin
     
338.   Result := FTimer.Interval;
     
339. end;
     
340. 
     
341. procedure TCnWaterImage.SetDamping(const Value: TWaterDamping);
     
342. begin
     
343.   FWater.Damping := Value;
     
344. end;
     
345. 
     
346. procedure TCnWaterImage.SetInterval(Value: Cardinal);
     
347. begin
     
348.   FTimer.Interval := Value;
     
349. end;
     
350. 
     
351. procedure TCnWaterImage.SetPicture(Value: TPicture);
     
352. begin
     
353.   FPicture.Assign(Value);
     
354. end;
     
355. 
     
356. procedure TCnWaterImage.Loaded;
     
357. begin
     
358.   inherited;
     
359.   UpdateWaterData;
     
360. end;
     
361. 
     
362. end.
     

复制代码

comeheres

水纹的大小，出现时间都可以设置的，自己去看看吧

http://www.cnpack.org/showdetail.php?id=739&lang=zh-cn

vxzv

comeheres 发表于 2013-12-17 22:24

                               
登录/注册后可看大图

水纹的大小，出现时间都可以设置的，自己去看看吧

http://www.cnpack.org/showdetail.php?id=739&lang=z ...

多谢你啦，你博客很棒，收藏啦！{:1_1:}

comeheres

vxzv 发表于 2013-12-18 22:50

                               
登录/注册后可看大图

多谢你啦，你博客很棒，收藏啦！

谢谢

网络学习

备受大家好评

vxzv

comeheres 发表于 2013-12-18 23:15

                               
登录/注册后可看大图

谢谢

客气啦！！！说实话那东西不是很会用。。。:sad

vxzv

网络学习 发表于 2013-12-19 00:12

                               
登录/注册后可看大图

备受大家好评

神马？？？？？？？？？？

comeheres

vxzv 发表于 2013-12-19 10:04

                               
登录/注册后可看大图

客气啦！！！说实话那东西不是很会用。。。

那就直接用控件呗，delphi的控件很多，写程序省事

vxzv

comeheres 发表于 2013-12-19 11:52

                               
登录/注册后可看大图

那就直接用控件呗，delphi的控件很多，写程序省事

那个空间就是在cnpack上下载的？

comeheres

vxzv 发表于 2013-12-19 12:21

                               
登录/注册后可看大图

那个空间就是在cnpack上下载的？

我不是给你下载地址了吗

vxzv

comeheres 发表于 2013-12-19 13:13

                               
登录/注册后可看大图

我不是给你下载地址了吗

下了，多谢！！！