关于启动画面的停留时间[悬赏100分]

Question

本人写了一套程序，是一个c/s程序。启动的时候通过这个程序连接远程的服务器（ado+adsl）。由于网络的原因每次启动这个程序的时候都要等上很长时间。这段时间内屏幕就是没有任何反映了。我想在这段等待时间能显示一个启动画面，告诉使用者程序正在连接远程数据库，直到程序连接成功为止。当然这段时间和等待时间是一样的，不希望用计时器规定上画面的停留时间，因为这样如果规定时间后画面关掉了数据库还没有连上，这样就没意思了，如果做进度条呢？希望高手指点迷津，提供相关的连接也可以。

Answer 1

XXX.Show
Connection....
XXX.Free

Answer 2

begin
  Application.Initialize;  F_LogOn := TF_LogOn.Create(Application);  //启动画面
  F_LogOn.Show; 
  F_LogOn.Update; //刷新显示
。
。
。
在连接成功后给指令：
    try            //捕捉异常
      DM.ADOConnection.Connected := true;  //启动与数据库服务器的连接
      F_LogOn.close;
    excepy 
      showmessage('连接失败');
      Application.Terminate;
    end;

Answer 3

也可以在ADOConnection的AfterConnect事件中写

Answer 4

SNYQ411(洋溢)       DM.ADOConnection.Connected := true;  //启动与数据库服务器的连接
      F_LogOn.close;//这里应该用FREE比较好 呵呵 

Answer 5

SNYQ411(洋溢) 的这种就可以满足你的要求了哈