Autor
Mensagem
Postado em: 7/7/2011 02:03:53 PM
Senhores,
Estou com uma dúvida para criar um splash screen com Gif Animado na hora que executo uma Stored Procedure.
Segue Código:
begin
with SP.Calculo do
begin
// Seto os Parametros pro Cálculo
end;
// Executando Procedimento
try
Form1 := TForm1.Create(Self); // Form1 é meu Splash Screen
Form1.Show;
Form1.Repaint;
SP.Calculo.ExecProc; //Executo Procedimento
except on E: Exception do
begin
Form1.Close;
Showmessage('Problema no Cálculo.'+#13+e.Message);
exit;
end;
end;
// Finalizando o Cálculo
Form1.Close;
Showmessage('Cálculo realizado com Sucesso !!!');
end;
//OBS:
// Oque esta acontecendo é que Meu Splash Screen que tem um gif animado, não esta ficando animado :-)
// A mesma operação é feita em form's sem Execução de Stored Procedures e dá tudo corretamente.
// No Form1 (Splash Screen) Só tenho um componente RxGifAnimator e um label.
// Utilizo o Delphi 2010
Desde já agradeço a todos pela colaboração
Postado em: 11/7/2011 09:10:18 AM
Favor me darem uma luz !!!
up !!!
Postado em: 12/7/2011 11:56:28 AM
UP !!!! Ajuda ae galera !!!
