GIF al conectarse a BD en nube

[pgranados]

Empezado por Jose Roman

Gracias, lo intentaré a ver

Incluye el unit de gifViewer y en un form haz esto:

Coloca un TPanel y en los eventos onShow y onClose haz esto:

Código Delphi [-]
private
   GV3: TGifViewer;

procedure TFormaEsperaImportacion.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   FreeAndNil(GV3);
end;

procedure TFormaEsperaImportacion.FormShow(Sender: TObject);
var  S, lspaso: String;
PWC: PWideChar;
begin
  DoubleBuffered:= true;
  try
    S:= RutaExe+'loading.gif';
    PWC:= PWideChar(S);
    GV3:= TGifViewer.Create;
    GV3.GifView(Panel1.Handle, PWC, true);
  except
    on e:exception do
      showMessage(e.Message);
  end;
end;

RutaEXE es la ruta de mi aplicación
Panel1 es el nombre del TPanel

Y ya para llamarlo desde un form puedes hacer esto:

Código Delphi [-]
FormaEsperaImportacion := TFormaEsperaImportacion.Create(Application);
FormaEsperaImportacion.Show;

En mi caso, ademas del TPanel incluí un label para mostrar algún mensaje, entonces mi forma de usarlo seria:

Código Delphi [-]
FormaEsperaImportacion := TFormaEsperaImportacion.Create(Application);
FormaEsperaImportacion.Show;
FormaEsperaImportacion.lbl.Caption:= 'Estamos haciendo la conexión con el servidor. Un momento por favor.';
FormaEsperaImportacion.lbl.Refresh;

Y ya para cerrarlo

Código Delphi [-]
FormaEsperaImportacion.Close;