Tela congelada

Question

Segue uma duvida:Tenho uma aplica��o que executa um processo longo.Ao executar, este processo inicia normalmente. Acontece que se eu mudar para qualquer outra janela que estiver aberta, quando retorno...

Emerson Nascimento · Answer

para n�o ter esse efeito de tela congelada, utilize Application.ProcessMessages na itera��o do seu la�o (supondo que esse �processo lento� se d� por conta de um loop)
seria algo assim:

lCancela := False;
while not tabela.eof and not lCancela do
begin
  {faz alguma coisa}
  tabela.next;
  {incrementa a barra de progresso}
  application.processmessages;
end;

if lCancela then
  ShowMessage(�Processo cancelado pelo usu�rio�);

essa vari�vel lCancela dever� ser uma vari�vel private do tipo boleana para controle do cancelamento do processo.
da� vc coloca um bot�o cancelar no seu form e, no onclick desse bot�o, p�e o seguinte c�digo:

lCancela := Application.MessageBox(�Deseja realmente cancelar o processo�,�Cancelar�,MB_TASKMODAL + MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = mrYes;

Pan7 · Answer

Valeu EmersonVou testar ! (Assim que a bendita terminar de rodar !!!)Um abra�o,Pan7...