Delphi 带有进度条的启动屏幕

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

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

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

---

我建议使用progressbar，这样用户就可以知道需要等待多长时间。

Delphi中的闪屏实现

如何在Delphi窗体中设置GIF动画

如何显示带有进度条的启动屏幕

---

其他任何操作都取决于您希望在应用程序中执行的操作

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

对于计时器，使用“开启计时器”功能，将参数间隔设置为500 ms

---

要在加载结束时完成，请将TprogressBar设置为不可见，将计时器启用值设置为false，并最终显示主窗体

XE-2和D7如何在此处同时发挥作用？在D7中执行此操作，它将在xe4上工作。。。同样的事情…为什么这个4岁的问题现在被搁置？那没用。我知道如何添加启动屏幕。。。。我想做的是，当主窗体准备就绪（所有表都打开）时，我的启动屏幕就会消失。进度条必须显示进度，但它如何知道主窗体何时将被打开（因此它应该显示100%）？因此，您有一些代码可以打开所有表（您真的需要在程序启动时打开它们，还是可以等到您真正需要它们时再打开它们…？）。无论如何，在打开表的代码结束时，关闭启动屏幕并使主窗体可见。