Detectar problemas de conexion....

[Jose Roman]

Hola a todos...
Tengo FireBird 2.1, Delphi 7 y los componentes BSF, deseo antes de que inicie la aplicación realizar un test de conexion dentro del cual hay una barra animada de progreso en el form, para ello utilice el siguiente codigo:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  Animacion.StartAnimation;
  try
    ZConnection.Connect;
  except
    MessageDlg('No se pudo establecer la conexión con el servidor',mtError,[mbOK],0);
    Application.Terminate;
  end;
end;

El problema radica en que no se que hacer cuando esta tratando de conectarse a la base de datos no muestra la ventana bien, solo se muestra del todo al final y no puedo ver la animacion, se que hay que utilizar un REPAINT, pero no se en que parte, alguien que me ayude con un ejemplo, gracias.

[ContraVeneno]

Necesitas utilizar diferentes hilos (Threads) en tu aplicación para que se puedas mostrar como lo quieres. Es decir, un hilo para manejar el programa y otro hilo para mostrar la animación.

aquí tienes un ejemplo