Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

GicaLilica

Tela enquanto o processo é feito

Recommended Posts

Oi gente, alguem sabe como se faz para ficar aparecendo uma telinha no programa informando "aguarde, processando...", sem botao sem nada, enquanto o processo, tipo gerar um relatorio pesado, é feito?dai quando terminado o processo a telinha some?obrigadaGislaine

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você faz do mesmo jeito que implementa janela de splash. Você cria o form, dá um Show no form, se preciso atualiza o form durante o processamento (lembre de usar Application.ProcessMessages), quando o processo terminar dá um Close e Free no form.

Compartilhar este post


Link para o post
Compartilhar em outros sites

A "receita do bolo" é mais ou menos assim...

 

Criando a janela de splash ou janela de progresso:

[*]Crie um novo form

[*]Ajuste a propriedade BorderStyle desse form para bsNone

[*]Ajuste o tamanho e outros detalhes desse form como desejar

[*]Eu costumo ajustar a propriedade Position para poMainFormCenter ou poDesktopCenter.

[*]Se quiser ter uma mensagem nesse form, inclua um TLabel para isso.

[*]Vá em Project/Options/Forms e remova esse form da lista de Auto-create forms

Para usar a janela de splash/progresso:

var  Splash: TSeuFormDeSplash;  ....begin  Splash := TSeuFormDeSplash.Create(nil);  // faz último ajuste em Splash se for preciso  Splash.Show;   ... aqui começa o processo demorado ...  // se for um loop, você pode atualizar uma mensagem ou  // progress bar dentro do loop fazendo algo deste tipo..  Splash.Label1 := TimeToStr(Time);  Splash.Update;   ... aqui termina o processo demorado ...  Splash.Free;end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.