Adicionar a Meu favorito

Monday, 24 de March de 2008

Olá Pessoal,

Já devemos ter precisado executar um comando muito grande e, para ficar mais amigável ao usuário, colocar uma barrinha de progresso, para avisá-lo em que estágio de processamento está.

Porém, nos deparamos com um pequeno problema: Nossa aplicação fica travada enquanto executa o comando!! Como resolver isto?

Existe um método chamado Application.ProcessMessages; que força a aplicação processas as mensagens do sistema operacional, como por exemplo a exibição correta do form. Com isto, não só o form é visualizado corretamente, mas também nossa barrinha de progresso funciona perfeitamente. :D

Vejamos um exemplo simples:

Digamos que tenhamos um ADOTable com vários registros abertos e vamos percorrer um a um:

ADOTable1.First; while not (ADOTable1.Eof) do begin lblStatus.Caption := 'Processando registro...'; // exibimos alguma mensagem Application.ProcessMessages; // chamados o método que força o SO a desenha a janela ADOTable1.Next; // pula para o próximo registro da tabela end;

Pronto. Agora é só você implementar uma barra de progresso e colocar mais algumas perfumarias (objetos que deixam a cara do formulário mais amigável para o usuário) caso seja necessário :)

Até a próxima pessoal.

Outros artigos

Assine o Feed desta categoria

• Identar código no Delphi 7 - 28/11/2007
• Acessando/Manipulando o Registro do Windows - 30/05/2007
• Instalação de Componentes no Delphi - 16/05/2007
• Como trocar a coluna do DBGrid de lugar - 28/08/2006
• Ver mais...

Comentários do artigo [Novo comentário]