Com ProgressBar
e Gauge
você provavelmente não teve sucesso porque precisaria estar atualizando o FrmProgress
.
Porque com ProgressBar
e/ou Gauge
? Não sei como é o comportamento de um gif animado no Delphi. Já tentei colocar uma vez, não era nativo o uso de gifs animados e então substitui por outras formas, geralmente ProgressBar
ou Gauge
porque sempre preciso dar um feedback de tempo de percorrido no processamento.
Para atualizar o form conheço três formas:
- FrmProgress.Update;
- FrmProgress.Refresh;
- Application.ProcessMessages.
As duas primeiras (Update e Refresh) você aplica só no formulário (FrmProgress) e somente ele processa as atualizações de display. Infelizmente não sei a diferença entre os dois. Mas ambos fazem uso do método Repaint, que também pode ser chamado diretamente: FrmProgress.Repaint;
.
Na última, a Application.ProcessMessages
você envia uma ordem ao sistema inteiro para processar toda informação que ainda não foi processada no display.
Para todas as opções uma informação mais aprofundada, por fonte, seria interessante.
Sobre o seu problema, eu não sei o que é feito nesse método IsRunningProcess
e nem porque você usa ele em um while
, mas na verdade ele pode ser usado para implementar um desses métodos que te mostrei e então remover a impressão de programa "travado".
Seria:
while IsRunningProcess('nome_do_processo') do
begin
FrmProgress.Show;
FrmPrincipal.Hide;
FrmProcess.Refresh;
// ou FrmProgress.Update;
// ou Application.ProcessMessages; // esse, em threads, costuma dar problemas
end;
FrmProgress.Close;
Application.MessageBox('Operação concluída com sucesso!', 'Ferramentas',
MB_ICONEXCLAMATION + MB_OK);
FrmPrincipal.Visible := True;
Uma sugestão para teste
Não sei o que tem nessa sua função IsRunningProcess
, mas arriscaria dizer que FrmProgress.Show;
e FrmPrincipal.Hide;
não precisariam estar dentro do while
. Acredito ser processamento desnecessário.
Tente assim:
FrmProgress.Show;
FrmPrincipal.Hide;
while IsRunningProcess('nome_do_processo') do
begin
FrmProgress.Refresh;
// ou FrmProgress.Update;
// ou Application.ProcessMessages; // esse, em threads, costuma dar problemas
end;
FrmProgress.Close;
Application.MessageBox('Operação concluída com sucesso!', 'Ferramentas',
MB_ICONEXCLAMATION + MB_OK);
FrmPrincipal.Visible := True;