Question

如何在Delphi XE7自定义启动闪屏Splash功能

Answer 1

　　修改project的源代码；

　　1
　　2
　　3
　　4
　　
　　Application.Initialize; //this line exists!
　　SplashScreen := TSplashScreen.Create(nil) ;
　　SplashScreen.Show;
　　SplashScreen.Update;
　　

　　在 Application.Create() 后， Application.Run 之前，释放splash

　　1
　　2
　　
　　SplashScreen.Hide;
　　SplashScreen.Free;