Create a splash screen for slow loading apps

Submitted by:Andery Smith

Date added:28 December, 2011

Category:Delphi

How to create a splash screen for slow loading apps. below shown a Delphi code example

Tags: splash screen

Code Snippet:

program admin;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {splash};

{$R *.RES}

begin
Application.Initialize;
splash:=Tsplash.create(application);
splash.show;
splash.refresh;
Application.CreateForm(TForm1, Form1);
form1.show;
splash.free;
Application.Run;

end.
 
 

Comments