FireMonkeyでスプラッシュスクリーンを作成するには？

Question

FMXプログラムの起動中にスプラッシュスクリーンを作成する必要があります。

VCLから次のコードは、作品のもうしません：

SplashScreen := TSplashScreen.Create(Application); 
SplashScreen.Show; 
Application.Initialize; 
SplashScreen.Update; //No such function in FMX 
Application.Run; 

問題がApplication.Runが実行されるまで、彼らが再描画するために、いくつかのFMXの魔法を使用するとFMXの形で、再描画/作成されていないということです。私はOSXのサポートが必要なので、VCLスプラッシュスクリーンの使用は選択肢ではありません。

Delphi XE2 FireMonkeyプロジェクトでスプラッシュスクリーンを作成するにはどうすればよいですか？

Answer 1

これは動作します - 違いはApplicationはスプラッシュウィンドウのOwnerなされていないということで、スプラッシュウィンドウが作成され、表示される前に、そのApplication.Initializeが呼び出されますが、メインフォームがスプラッシュ後まで作成されていませんウィンドウが表示されます。

program Project2; 

uses 
    FMX.Forms, 
    System.SysUtils, 
    Unit1 in 'Unit1.pas' {MainForm}, 
    Unit2 in 'Unit2.pas' {SplashForm}; 

{$R *.res} 

begin 
    Application.Initialize; 
    SplashForm := TSplashForm.Create(nil); 
    SplashForm.Show; 
    Sleep(1000); // Whatever to control display time of splash screen 

    Application.CreateForm(TMainForm, MainForm); 
    SplashForm.Close; 
    SplashForm.Free; 
    Application.Run; 
end. 

Answer 2

別個のTLayoutを追加して、必要に応じて入力することもできます。そうするために;

• スプラッシュレイアウトは、フォームを直接所有者として持つ必要があります。
• フォームの残りの部分はその背後にある必要があります。フォームの透明性を有効にする必要があります。
• FormCreateイベントでは、他のフォームコントロールの必要な隠蔽を行うためのコードを追加することができます。これらのコントロールは、別々の単一またはレイアウトセットに追加して非表示にすると簡単に行うことができます。
• また、スプラッシュレイアウトを隠し、必要に応じて残りのフォームを表示するためのトリガーイベントが必要です。

注：このアプローチは、しかし、スプラッシュ画面上の標準フォームのボタンは表示されません。

私はこれを何度もやっており、別のフォームを作ってメインフォームと一緒に扱うよりも静かであることが分かりました。