带进度条的启动画面

Question

我的数据库需要相当长的时间来加载（它在网络上）所以我想显示一个带有一些动画的闪屏（进度条或一些简单的动画）以保持用户占用。因为这是每个人的猜测什么时候会表打开，所以我不能使用计时器来运行进度条。所以一些GIF动画可能是更好的选择。但是，如何在表打开之前隐藏/释放启动画面（并且主窗体显示）???

Answer 1

Delphi Splash Screen Programatically in Delphi

中的启动画面实现

如何使用Delphi表格How to use Animated Gif in a delphi form

为GIF制作动画

如何使用进度条How to make a splash screen with a progress bar on Turbo Delphi?

显示启动画面

其他任何因素取决于您在应用程序中要执行的操作。

Answer 2

您是否加载了完整的数据库？然后，您可以按加载的表/记录数显示进度。

有很多示例可以向您展示如何添加启动画面。您可以隐藏主窗体并将（模态）窗体显示为初始屏幕。此表单在数据库加载开始之前创建，并在完成时销毁。

我建议使用进度条，以便用户了解他将需要等待多长时间。

Answer 3

您可以使用Ttimer并更新内部的TprogressBar，直到加载结束。

对于定时器使用“on timer”功能将参数间隔设为500 ms

要在加载结束时完成，请使TprogressBar不可见，并且启用计时器的值为false并最终显示您的主表单