iGamesbr
Visite nosso novo website.

http://manoproject.tk

ou manocelo.tk os dois são o mesmo website.
iGamesbr

O melhor conteúdo.
 
InícioInício  PortalPortal  CalendárioCalendário  FAQFAQ  MembrosMembros  Registrar-seRegistrar-se  Conectar-se  Seja um Over Member!  

Compartilhe | 
 

 Evitar que a aplicação trave

Ir em baixo 
AutorMensagem
Nick
Ex - Moderador
Ex - Moderador
avatar

Sexo : Masculino
Mensagens : 73
Creditos : 2641
Agradecimentos : 1
Data de inscrição : 03/02/2012
Idade : 27

MensagemAssunto: Evitar que a aplicação trave    Sab Fev 04, 2012 11:44 am

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.


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

Citação :


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 deixar a seu gosto.
Voltar ao Topo Ir em baixo
pitio157
Moderador Gamezone
Moderador Gamezone
avatar

Sexo : Masculino
Mensagens : 55
Creditos : 2569
Agradecimentos : 1
Data de inscrição : 10/02/2012
Idade : 21

MensagemAssunto: Re: Evitar que a aplicação trave    Sab Fev 11, 2012 9:55 am

Isso e bom pra quem tem esse problemas mais e dificil isso acontecer comigo mas mesmo assim obrigado
Voltar ao Topo Ir em baixo
 
Evitar que a aplicação trave
Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
iGamesbr :: Info Zone :: Desenvolvimento - Pro :: Delphi-
Ir para: