Como abortar processo?

Question

Ol� Pessoal,Tenho uma situa��o complicada para resolver, Estou executando uma fun��o de c�lculo, que � chamada atrav�s de outro form. Entro num form, escolho a empresa e no pr�ximo form mando executar...

Asensio · Answer

Tenta o comando.BreakFui...

Ediane · Answer

Mas em que momento eu disparo esse comando?...

Rjun · Answer

Esse c�lculo esta num while?...

Ediane · Answer

Est�!...

Crash · Answer

Voce pode no fim de cada bloco do while dar um Application.ProcessMessages para o processo nao ficar preso somente nesse bloco. crie uma variavel vAbortar e no OnKeyPress do form vc seta ela pra true e dentro do bloco vc testa... se ela estiver true entao vc da um break.

var
  vAbortar: Boolean;

begin
  vAbortar := False;
  while Condicao do
  begin
    if vAbortar then
      Break;
    Comandos...
    Application.ProcessMessages;
  end;
end;

Form1.FormKeyPress(Sender: TObject; Key: Char);
begin
  if Key = #27 then
  begin
    Key := 0;
    vAbortar := True;
  end;
end;

Ediane · Answer

Valeu pela dica, vou tentar... Obrigada a todos!...

F�rum Como abortar processo? #292173