Buen día colegas, en mi proyecto, al dar clic en un botón tengo una forma que ''actúa'' como mensaje de espera, en esa forma tengo un .GIF tipo ''loading'' y un label con caption ''Un momento por favor, no cancele el proceso''.
El tema es que al dar clic en el botón, aparece el mensaje de espera, hace las operaciones correspondientes de mi proyecto sin problemas, pero al mostrar un mensaje de finalización
Código Delphi
[-]showMessage ('La tarea fue terminada con éxito');
se empieza a reproducir el .gif por así decirlo, no antes de finalizar las tareas.
Código Delphi
[-]
procedure TFormaMensaje.FormCreate(Sender: TObject);
begin
if FileExists(FormaPrincipal.psRutaRaizServer+'clock.gif') then
begin
Image1.Picture.LoadFromFile(FormaPrincipal.psRutaRaizServer+'clock.gif');
Image1.Center:= true;
(Image1.Picture.Graphic as TGifImage).Animate:= true;
(Image1.Picture.Graphic as TGifImage).AnimationSpeed:= 1000;
end
end;
¿Alguien puede apoyarme con esta pequeña duda? Saludos
