Question

delphi7中 form1调用form2，想用“loading。。”过渡！咋整？？

有两个Form
功能：运行后显示Form1 然后点击 form1里的button 显示出form2
问题：form2中show事件里 查询数据库中的内容太庞大，导致 点击form1里的button后，要等待好久才显示form2

我想在等待的时候 form1中显示“loading。。。。”字样，这怎么解决？？？
目的：告诉用户系统没假死，正在加载内容。

这样怎么实现？？

或者有人知道其他解决办法也可以，虚心求教

不会的帮顶~~ 3Q

Answer 1

界面启动时启动一个小的Form3上面写上Loading...下面搞一个gif。
注意启动Form3时要在创建界面时选择一直置前。

如果不要花哨，就如一楼加进度条。
但是一楼这么做一样是假死状态，需要在处理循环语句的中间，也是在你进度条加一的后面谢上这样一句

application.processmessage;

这样屏幕就不假死了。

另外在Form2属性里面有一个doublebuffer 设置为打开。

希望对你有用哦

Answer 2

你可以加一进度条显示，就以你查询数据的数量为总数，每查询完一个数据就让进度条的进度+1。。。