在FireMonkey中显示带有消息的启动画面

Question

我想要一个带有tLabel的启动屏幕。 tLabel将用于显示应用程序初始化任务的进度，例如：“启动数据库”，“设置表单”等。

我在项目文件中尝试了以下代码：

  Application.Initialize;
  FormSplash := TFormSplash.Create( Application );
  FormSplash.OpenSplash;
  FormSplash.ShowProgress;
  Application.Run;

它可以正确显示初始屏幕。但是，出现初始屏幕时，应按顺序显示发布到其上的每个文本的tLabel仅显示发布的最后一个文本。即使我在每个发布的文本之后放置一个Sleep命令，也会发生这种情况。我试图将文本发布到FormCreate，FormShow和FormActivate事件上，结果相同。

该应用程序适用于Windows 32。

Answer 1

在更改标签内容之间，应允许应用程序对这些更改做出反应。最简单的可能性是使用Application.ProcessMessages。