Question

有没有人会用delphi制作一个等待窗体，窗体上加载动画

比如在查询数据之前，先把这个窗体show出来，然后执行查询动作，查询完成后关闭窗体。问题的关键是如何能使动画动起来。我不需要什么用多线程之类的几句话提示，如果有实例代码最好能贴上来，不胜感谢！

Answer 1

DELPHI+SQL语句的查询，占用不了多大时间，除非用某某表中的某某字段的值，不在或在某某表中之类的查询，这种查询很耗费时间，用“正在查询，请稍候........”之类的提示比较恰当，让用户知道，是查询没有结束，不是程序死掉了。问题是很多查询，如果不使用循环语句，就无法插入提示性的语句，即使是使用多线程也是白搭。如果能把查询放在循环语句中，那就好办了，在适当时候，变换一下负责显示提示的label组件的提示语，使“正在查询，请稍侯（后面没有点）”和“正在查询，请稍候........”交替出现，变换后，刷新一下label控件。就可以实现你要的效果了。刷新很重要，没有这句，即使变换了显示内容，也没有效果。

追问

我原本就是像你这么所说处理的，只是我想弄个动画在上面会比较漂亮，因为我看见人家这么实现过，所以我自己也想尝试一下。但是就像你所说的那样，线程处理起来的确会有很多不当之处，谢谢你的回答

Answer 2

放一个面板在窗体上,面板上弄一个Animate控件 try finally 一下 执行操作前把面板显示出来 最后关闭掉就好了

追问

这个思路不错，是不是把这个面板放在查询的窗体上？这个面板是Panel面板吗？在面板上放个加载动画的控件，问题是如何用代码是面板居中，我肯定不会手动将它拖到窗体中间的

追答

面板也行 自己写的控件也行,合适就好,面板显示的时候又属性设置显示在屏幕中间还是软件中间的

追问

屏幕中间比较好，但是我没有发现Panel面板有Position这个属性，请问有什么容器有这个属性？

追答

..没有中间显示..你可以自己设置 showing里面 设置left属性显示到当前窗体宽度的一半位置 面板的,你自己感受下

Answer 3

你弄个webbrower覆盖，然后webbrower加载gif动画图片即可，也可以找支持gif动画的控件，不过比较麻烦

追问

我的困难点不在于加载动画，加载gif动画很简单，我两句代码就能实现，困能的是show出来的动画是静止的，我知道这是线程问题，但不知道如何处理，比如我想写一个线程，在进程里调用一个加载动画的窗体，可是这窗体本身还是在主线程里，搞得头大