显示初始图像几秒后为空白

Question

在我的应用程序中，我在连接数据库和其他初始化期间有一个启动图像。它可以很好地显示启动图像，但它是一个句点的空白。 因此，

1. 启动图像在不到一秒的时间内就被加载并显示。
2. 初始图像空白 2-3 秒。
3. 几秒钟后再次显示初始图像。
4. 飞溅已关闭。

有没有聪明的办法可以尽快显示图像并删除空白图像？

DPR 文件中的代码：

Application.Initialize;

SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
// Tried Splash.Update here but no difference.

SplashForm.SetPos(15);
// Init code
SplashForm.SetPos(30);

// More Init code
SplashForm.SetPos(100);

SplashForm.Close;

Application.Run;

以及启动单元：

procedure TSplashForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TSplashForm.FormCreate(Sender: TObject);
begin
  pbLoading.Properties.Text := 'Loading ' + TClientConfig.Instance.AppTitle + '...';
end;

procedure TSplashForm.SetPos(aPos: Integer);
begin
  pbLoading.Position := aPos;
  UpDate;
end;

问候 罗兰

Answer 1

也许这不是那么明显，但是您的代码似乎显示了启动屏幕，然后立即将其关闭。如果注释掉 SplashForm.Close 行会发生什么？

Answer 2

我想我现在明白了。我的应用程序使用粗体，加载模型需要几秒钟的时间。正是在这段时间里，飞溅是空白的。我设法减少了一点时间，但我不想用 Application.ProcessMessages 使 Bolds SetFromModel 的内部变得混乱。

我觉得这样就可以了。但感谢您的评论。它为我指明了正确的方向。

/罗兰

Answer 3

您的 SplashForm 需要接收 WM_PAINT 消息才能显示自己，除非消息泵正常工作，否则这种情况不会发生。

将 Application.ProcessMessages 放在 SplashForm.Show 之后。