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

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.  

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.  

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;