delphi之完美Splash方案

前言:网上有很多介绍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文件中加入如下代码:

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.这一步就是主窗体加载数据的时候,边加载边更新闪屏的进度文字了:

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诞生了.

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值