I need to create a splashscreen while my FMX program is launching.
The following code from VCL does not works anymore:
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Initialize;
SplashScreen.Update; //No such function in FMX
Application.Run;
Problem is that in FMX forms are not created/repainted until Application.Run
executed, as they use some FMX magic to repaint. Using VCL splashscreen is not an option since I need OSX support.
How do I create a splashscreen in Delphi XE2 FireMonkey project?
Best Answer
This works - the difference being that the
Application
isn't made theOwner
of the splash window, and thatApplication.Initialize
is called before the splash window is created and displayed, but the main form isn't created until after the splash window is showing.