如何在 FireMonkey 中创建闪屏？

Question

我需要在 FMX 程序启动时创建一个启动屏幕。

VCL 中的以下代码不再起作用：

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

问题是，在 FMX 中，直到执行 Application.Run 后才会创建/重新绘制表单，因为它们使用一些 FMX 魔法来重新绘制。使用 VCL 启动画面不是一个选项，因为我需要 OSX 支持。

如何在 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 事件中，您可以添加代码来对其他表单控件进行必要的隐藏，如果将它们添加到单独的单个或一组布局中并隐藏它们，则可以轻松实现这一点。
• 您还需要一种触发事件来隐藏启动布局并根据您的需要显示表单的其余部分。

注意：这种方法不会在启动屏幕上显示标准表单按钮。

我已经这样做过很多次了，事实证明，它比制作一个单独的表单并与主表单一起处理要简单得多。