用API 函数,下面是一段例子,自己参照修改一下 if not datamodule1.Database1.Connected then begin animatefm.Animate1.CommonAVI:=aviFindComputer;//animatefm为显示动画的窗体 animatefm.Caption:='正在连接数据库...'; animatefm.Show; animatefm.Animate1.Active:=true; datamodule1.Database1.Connected:=true; animatefm.Close; end;
if not datamodule1.Database1.Connected then
begin
animatefm.Animate1.CommonAVI:=aviFindComputer;//animatefm为显示动画的窗体
animatefm.Caption:='正在连接数据库...';
animatefm.Show;
animatefm.Animate1.Active:=true;
datamodule1.Database1.Connected:=true;
animatefm.Close;
end;