Ver Mensaje Individual
  #4  
Antiguo 14-08-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 297
Reputación: 3
pgranados Va por buen camino
Cita:
Empezado por Jose Roman Ver Mensaje
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;
Responder Con Cita