Cita:
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;