delphi之完美Splash方案
2015-06-06 19:47
746 查看
前言:网上有很多介绍delphi创建闪屏的代码,大多只是在程序开启前显示一个闪屏,但是却没有说如何在闪屏上显示程序加载的进度,于是笔者有意思介绍一下这种闪屏方式。
1.创建一个窗体(TfrmSplash),放入一个TImageBox,加载一幅图片,调整好TImageBox与图片的大小,然后在其上放入一个TLabel,name=LblStatus,用于显示加载进度文字。然后将TfrmSplash设置为不自动创建。
2.加入如下代码(代码很简单,就不用解释太多)
unit UntFormSplash;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TfrmSplash = class(TForm)
Image1: TImage;
LblStatus: TLabel;
private
{ Private declarations }
FParam:Pointer;
public
{ Public declarations }
class function Execute(AParam:Pointer):Boolean;
procedure SetStatusText(Value: string);
published
property StatusText : string write SetStatusText;
end;
var
SplashForm: TfrmSplash;
implementation
{$R *.dfm}
{ TfrmSplash }
class function TfrmSplash.Execute(AParam:Pointer): Boolean;
begin
with TfrmSplash.Create(nil) do
try
FParam := AParam;
Result := ShowModal = mrOk;
finally
Free;
end;
end;
procedure TfrmSplash.SetStatusText(Value: string);
begin
LblStatus.Caption := Value;
Update; //这句非常重要,不加的话,界面会阻塞,文字也就不会更新显示
Sleep(1000); //这句根据自己实际情况来调整,主要是怕闪屏太快关闭,达不到效果
end;
end.
3. 在项目的.dpr文件中加入如下代码:
Delphi代码
begin
Application.Initialize;
SplashForm := TfrmSplash.Create(Application);
SplashForm.Show;
SplashForm.Update;
SplashForm.StatusText := '准备启动...';
SplashForm.Update;
Application.CreateForm(TDM, DM);
Application.CreateForm(TfrmMain, frmMain);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
4.这一步就是主窗体加载数据的时候,边加载边更新闪屏的进度文字了:
Delphi代码
procedure TfrmMain.FormCreate(Sender: TObject);
begin
with SplashForm do
try
StatusText := ('开始初始化内存...');
FCacheHash := TStringHashMap.Create(CaseInsensitiveTraits, 255);
FCurrentClients := TList.Create;
//VST.NodeDataSize := SizeOf(TTagCustomListItem);
//VST.RootNodeCount := 2;
VST.NodeDataSize := SizeOf(TMyTreeNodeDate);
StatusText :=('初始化内存完成');
StatusText :=('开始加载客户端列表...');
BuildGroupTree;
StatusText :=('加载客户端列表完成');
StatusText :=('开始加载分组信息...');
AddELVDefaultGroup;
StatusText :=('开始初始化内存');
StatusText :=('开始初始化数据...');
G_DefNetImpl := TDefNetImpl.Create();
G_DefNetImpl.RegisterObserver(Self);
StatusText :=('全部数据加载完毕,程序即将启动...');
finally
end;
end;
收功,试着运行一下吧,一个漂亮的splash诞生了.
1.创建一个窗体(TfrmSplash),放入一个TImageBox,加载一幅图片,调整好TImageBox与图片的大小,然后在其上放入一个TLabel,name=LblStatus,用于显示加载进度文字。然后将TfrmSplash设置为不自动创建。
2.加入如下代码(代码很简单,就不用解释太多)
unit UntFormSplash;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TfrmSplash = class(TForm)
Image1: TImage;
LblStatus: TLabel;
private
{ Private declarations }
FParam:Pointer;
public
{ Public declarations }
class function Execute(AParam:Pointer):Boolean;
procedure SetStatusText(Value: string);
published
property StatusText : string write SetStatusText;
end;
var
SplashForm: TfrmSplash;
implementation
{$R *.dfm}
{ TfrmSplash }
class function TfrmSplash.Execute(AParam:Pointer): Boolean;
begin
with TfrmSplash.Create(nil) do
try
FParam := AParam;
Result := ShowModal = mrOk;
finally
Free;
end;
end;
procedure TfrmSplash.SetStatusText(Value: string);
begin
LblStatus.Caption := Value;
Update; //这句非常重要,不加的话,界面会阻塞,文字也就不会更新显示
Sleep(1000); //这句根据自己实际情况来调整,主要是怕闪屏太快关闭,达不到效果
end;
end.
3. 在项目的.dpr文件中加入如下代码:
Delphi代码
begin
Application.Initialize;
SplashForm := TfrmSplash.Create(Application);
SplashForm.Show;
SplashForm.Update;
SplashForm.StatusText := '准备启动...';
SplashForm.Update;
Application.CreateForm(TDM, DM);
Application.CreateForm(TfrmMain, frmMain);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
4.这一步就是主窗体加载数据的时候,边加载边更新闪屏的进度文字了:
Delphi代码
procedure TfrmMain.FormCreate(Sender: TObject);
begin
with SplashForm do
try
StatusText := ('开始初始化内存...');
FCacheHash := TStringHashMap.Create(CaseInsensitiveTraits, 255);
FCurrentClients := TList.Create;
//VST.NodeDataSize := SizeOf(TTagCustomListItem);
//VST.RootNodeCount := 2;
VST.NodeDataSize := SizeOf(TMyTreeNodeDate);
StatusText :=('初始化内存完成');
StatusText :=('开始加载客户端列表...');
BuildGroupTree;
StatusText :=('加载客户端列表完成');
StatusText :=('开始加载分组信息...');
AddELVDefaultGroup;
StatusText :=('开始初始化内存');
StatusText :=('开始初始化数据...');
G_DefNetImpl := TDefNetImpl.Create();
G_DefNetImpl.RegisterObserver(Self);
StatusText :=('全部数据加载完毕,程序即将启动...');
finally
end;
end;
收功,试着运行一下吧,一个漂亮的splash诞生了.
相关文章推荐
- Delphi XE8中的DBExpress使用ODBC方式连接MySQL 5.6.24 X64!!!!
- Delphi XE8中的DBExpress使用ODBC方式连接MySQL 5.6.24 X64!!!!
- Google的URL编码解码之delphi
- Delphi调用Android的.so文件(转)
- Delphi Android程序启动过程(转)
- 关于DELPHI XE8开发安卓,和自己开发的服务端通信
- Delphi应用程序的调试(连载,瓢虫原著)
- Delphi String 常用字串符处理函数
- delphi 2010多线程使用
- 【2015-6-5】Delphi学习笔记
- delphi “div”、“mod”、“\”除法运算符的区别与使用方法
- delphi VCL研究之消息分发机制(转)
- delphi使用 第三方控件
- 发现个delphi调用vc写的Dll中包含pchar参数报错奇怪现象
- delphi身份证验证
- Delphi之TComponent类
- DELPHI 动态 创建和释放 多个 EDIT 控件
- delphi XE8 正式破解版下载、注册码
- delphi7及控件安装
- Delphi程序的自我修改