数据库程序启动的问题！

Question

程序启动连接　到数据库　要好长时间，这个时候没什么显示，怎么　弄回让程序这个时候显示点什么，直到　程序连接　到数据库？
谢谢！

Answer 1

新建自己的线程。
ype
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
在线程中显示进度条和cancle按钮。然后ype
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

Answer 2

工程文件
  Application.Initialize;
  LoginPic:=TloginPic.Create(Application);
  LoginPic.show;
  LoginPic.update;
  try
  Application.CreateForm(TDM, DM);
  Application.CreateForm(Tmainform, mainform);
  LoginPic.Free;
  Application.CreateForm(TLogin, Login);
  if login.ShowModal=1 then
  Application.Run
  else
  Application.Terminate;
  except
  Application.MessageBox('连接数据库失败！！！','连接数据库');
  LoginPic.Free;
  Application.Terminate;
  end;

Answer 3

比较常见的就是显示一个欢迎窗口,上面有图片跟一些状态信息.叫Splash窗体。
执行Connected之前动态创建它并Show出来，然后到Connected:=true后面将它
释放。