RES: [delphi-br] Interromper a execução de procedu re

Wed, 15 Feb 2006 14:07:47 -0800 

// Global
var
 vContinuar : Boolean;


....
....
....


procedure TForm1.ButtonIniciarClick(Sender : TObject);
var
  x : Integer;
begin
  x          := 0;
  vContinuar := True;

  while (x < 10000) and (vContinuar) do begin
    Memo1.Lines.Add('Incluindo linha ' + IntToStr(x));
    Application.ProcessMessages;    
  end;  
end;

procedure TForm1.ButtonPararClick(Sender : TObject);
begin
  if vContinuar then
    if MessageDlg('Processamento em execução, deseja abortar',
mtWarning, [mbYes,mbNo],0) = mrYes then
      vContinuar := False;
end;



Atenciosamente;
Elazar


        

        
                
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
<<<<< 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