Atualizar Panel
Ola colegas, pessoal estou abrindo um form utilizando a função show, dentro desse form tem um componente caption com a descrição "Aguarde enquanto processa as informação", só que esse caption não aparece quando abro esse form em tempo de execução, faço isso dentro de data module.
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 ?
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
Curtidas 0
Respostas
Emerson Nascimento
22/03/2022
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;
GOSTEI 0
Pestana
22/03/2022
Bom dia pessoal!
Emerson uma dúvida, também pode ser utilizado o Application.ProcessMessages no lugar do frmMensagem.Refresh?
Emerson uma dúvida, também pode ser utilizado o Application.ProcessMessages no lugar do frmMensagem.Refresh?
GOSTEI 0
Raimundo Pereira
22/03/2022
Eu uso assim:
Application.ProcessMessages;
sleep(1000);
Application.ProcessMessages;
sleep(1000);
GOSTEI 0
Emerson Nascimento
22/03/2022
Sim, pode ser usado.
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.
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.
GOSTEI 0
Fabianoluizdb
22/03/2022
Eu utilizei o Refresh e deu certo, valeu.
GOSTEI 0