delphi之完美Splash方案（在TfrmMain.FormCreate里不断调用TfrmSplash显示加载进度文字，并且及时Update显示）

前言：网上有很多介绍delphi创建闪屏的代码，大多只是在程序开启前显示一个闪屏，但是却没有说如何在闪屏上显示程序加载的进度，于是笔者有意思介绍一下这种闪屏方式。

1.创建一个窗体(TfrmSplash)，放入一个TImageBox,加载一幅图片，调整好TImageBox与图片的大小，然后在其上放入一个TLabel,name=LblStatus,用于显示加载进度文字。然后将TfrmSplash设置为不自动创建。

2.加入如下代码（代码很简单，就不用解释太多）

1. unit UntFormSplash;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, ExtCtrls, StdCtrls;
6. type
7. TfrmSplash = class(TForm)
8. Image1: TImage;
9. LblStatus: TLabel;
10. private
11. { Private declarations }
12. FParam:Pointer;
13. public
14. { Public declarations }
15. class function Execute(AParam:Pointer):Boolean;
16. procedure SetStatusText(Value: string);
17. published
18. property StatusText : string write SetStatusText;
19. end;
20. var
21. SplashForm: TfrmSplash;
22. implementation
23. {$R *.dfm}
24. { TfrmSplash }
25. class function TfrmSplash.Execute(AParam:Pointer): Boolean;
26. begin
27. with TfrmSplash.Create(nil) do
28. try
29. FParam := AParam;
30. Result := ShowModal = mrOk;
31. finally
32. Free;
33. end;
34. end;
35. procedure TfrmSplash.SetStatusText(Value: string);
36. begin
37. LblStatus.Caption := Value;
38. Update;  //这句非常重要，不加的话，界面会阻塞，文字也就不会更新显示
39. Sleep(1000); //这句根据自己实际情况来调整，主要是怕闪屏太快关闭，达不到效果
40. end;
41. end.

3. 在项目的.dpr文件中加入如下代码：

1. begin
2. Application.Initialize;
3. SplashForm := TfrmSplash.Create(Application);
4. SplashForm.Show;
5. SplashForm.Update;
6. SplashForm.StatusText := '准备启动...';
7. SplashForm.Update;
8. Application.CreateForm(TDM, DM);
9. Application.CreateForm(TfrmMain, frmMain);
10. SplashForm.Hide;
11. SplashForm.Free;
12. Application.Run;
13. end.

4.这一步就是主窗体加载数据的时候，边加载边更新闪屏的进度文字了：

1. procedure TfrmMain.FormCreate(Sender: TObject);
2. begin
3. with SplashForm do
4. try
5. StatusText := ('开始初始化内存...');
6. FCacheHash := TStringHashMap.Create(CaseInsensitiveTraits, 255);
7. FCurrentClients := TList.Create;
8. //VST.NodeDataSize := SizeOf(TTagCustomListItem);
9. //VST.RootNodeCount := 2;
10. VST.NodeDataSize := SizeOf(TMyTreeNodeDate);
11. StatusText :=('初始化内存完成');
12. StatusText :=('开始加载客户端列表...');
13. BuildGroupTree;
14. StatusText :=('加载客户端列表完成');
15. StatusText :=('开始加载分组信息...');
16. AddELVDefaultGroup;
17. StatusText :=('开始初始化内存');
18. StatusText :=('开始初始化数据...');
19. G_DefNetImpl := TDefNetImpl.Create();
20. G_DefNetImpl.RegisterObserver(Self);
21. StatusText :=('全部数据加载完毕，程序即将启动...');
22. finally
23. end;
24. end;

收功，试着运行一下吧，一个漂亮的splash诞生了.

http://peirenlei.iteye.com/blog/521581