Tela de Espera

Delphi

01/08/2003

Tipo assim

Quando eu Fecho um Cupom fiscal ele tem que atualisar a tabela
de produtos , movimentação de estoque, Estoque , Comossao de vendedor e as veser gerer duplicata
tudo isso leva em torno de 2 ou 3 segundos....
eu seu que o tempo e pequeno mas so de frescura eu queria que
abrice uma tela tipo de splash nesse periodo

como fazer ?


Mysys

Mysys

Curtidas 0

Respostas

Andercrist

Andercrist

01/08/2003

Você pode criar um form e mandar ele abrir no inicio do seu comando e fechar no final.
Ex.:

Application.CreateForm(TForm1, Form1);
Form1.Show;
Form1.Refresh;

Comandos para Atualização;

Form1.Release;
Form1:= nil;

Ou jogar um panel no seu form e mandar ele visivel e invisivel;

Panel.Visible:= true;
Form1.Refresh;

Comandos Para Atualização;

Panel.Visible:= false;

e ainda se desejar inserir um progressbar e progredir conforme a quantidade de registros nas tabelas:
var contar;

procedure TForm1.contagem;
Begin
ProgressBar1.Max:= contar;
If progressbar1.Position <> contar Then
Begin
ProgressBar1.Position:= ProgressBar1.Position + 1;
end else begin
ProgressBar1.Position:= 0;
end;
Form1.Refresh;
end;

procedure Tform1.Atualiza
Begin
contar:= Tabela.RecordCount;
contagem;
Panel1.Visible:= true;

While not Tabela.Eof do
Begin

Comandos Para Atualização;

tabela.next;
contagem;
end;

end;


Beleza espero ter ajudado.

Anderson Cristian da Silva
Programador - Administrador de Rede e Banco de Dados


GOSTEI 0
POSTAR