怎样显示等待提示(有一台电脑和移动的放大镜的那个)窗口(100分)

我想在数据生成时显示如题所示的那个等待窗口,不知要调用什么函数,望知道的大侠
指点一下.

那个图标是个Avi，只要做一个窗体后在窗体上加上这个AVI就可以啦，你在那加载数据开头加一个form.show，在数据加载完后做一个form.hide就可以了，呵呵，没有你想的那么复杂啦！

我想系统应该有这个东西吧，只是不知怎样弄他出来。

uses ComCtrls;
var
avi=TAnimate;
begin
avi:=TAnimate.create(self);
....
avi.commonavi := avifindcomputer;
avi.action:=true;
....
end;

非常多谢小雨哥的指点，问题已基本解决。只是提供的示例有点不完善，现贴出正确
的示例供有需要的同仁参考。

procedure TForm1.Button1Click(Sender: TObject);
var
TempForm: TForm;
avi: TAnimate;
i: integer;
begin
try
TempForm := TForm.Create(self);
avi := TAnimate.Create(TempForm);
avi.Parent := TempForm;
avi.CommonAVI := aviCopyFiles;
avi.Active := True;
TempForm.Show;
for i := 0 to 9000000 do Application.ProcessMessages;
finally
TempForm.Release;
end;
end;

具体的应用可能再要完善一下。谢谢！

兄弟，我是无忧鱼，我的qq:21323154
有时间聊聊吧