Atualizar Panel
22/03/2022
0
try
Application.CreateForm(TfrmMensagem, frmMensagem);
frmMensagem.Show;
frmMensagem.Label1.Caption := 'Aguarde processando...';
query.Close;
query.ParamByName('PRODUTO').AsString := ;
query.ParamByName('VARIACAO').AsInteger := ;
query.ParamByName('CODCOR').AsInteger := ;
query.ParamByName('GRADE').AsString := ;
query.Open;
for i := 1 to 16 do
begin
end;
finally
FreeAndNil(frmMensagem);
end;
Alguém para me ajudar ?
Fabianoluizdb
Posts
23/03/2022
Emerson Nascimento
try
Application.CreateForm(TfrmMensagem, frmMensagem);
frmMensagem.Show;
frmMensagem.Label1.Caption := 'Aguarde processando...';
frmMensagem.Refresh; // atualiza a tela
query.Close;
query.ParamByName('PRODUTO').AsString := ;
query.ParamByName('VARIACAO').AsInteger := ;
query.ParamByName('CODCOR').AsInteger := ;
query.ParamByName('GRADE').AsString := ;
query.Open;
for i := 1 to 16 do
begin
end;
finally
FreeAndNil(frmMensagem);
end;23/03/2022
Pestana
Emerson uma dúvida, também pode ser utilizado o Application.ProcessMessages no lugar do frmMensagem.Refresh?
23/03/2022
Raimundo Pereira
Application.ProcessMessages;
sleep(1000);
23/03/2022
Emerson Nascimento
Normalmente o processmessages é usado dentro de um loop, quando os botões da tela ficam disponíveis para o usuário (pausar, cancelar, por exemplo).
Com o processmessages o sistema captura o clique e executa a ação do botão ou qualquer outro controle.
No caso apresentado o Refresh basta.
Clique aqui para fazer login e interagir na Comunidade :)
