Se a execução estiverem um loop, vc pode alterar o valor de uma variável global 
para terminar o processo.

por exemplo:

var
  X: Integer = 0;

procedure FazCoisa;
begin
  while x = 0 do
  begin
    FazAlgumaCoisa;
    Application.ProcessMessages;          // Esta linha é importante para 
evitar que seu programa congele
                                          // e não deixe que vc clique em outro 
lugar antes de sair da procedure.
  end;
end;

Procedure EncerraFazCoisa;
begin
  Inc(X);
end;




[]'s

Filipe Geyer



  ----- Original Message ----- 
  From: cabx1963 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, February 15, 2006 1:38 PM
  Subject: [delphi-br] Interromper a execução de procedure 


  Caros amigos,

       Estou elaborando um programa em que quando o usuário clica em um 
  determinado botão no formulário, inicia-se um processo extenso dentro 
  da procedure "Button1Click". Quero saber com acessar um outro botão no 
  mesmo formulário, antes do processo que está sendo executado no 
  primeiro botão termine, para poder assim, alterar o valor de uma 
  variável e conseguir interromper o processo.


       Grato pela atenção dispensada, Carlos.







  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por: 
              PUBLICIDADE
                
       


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a