> Como não parar a aplicação durante um processo longo? |
{ Muitas vezes durante um processo longo nossa aplicação fica paralisada, aguardando o termino de um loop e isso pode causar alguns inconvenientes, como permitir que se tenha acesso a outras partes do programa, bem como, até o término do próprio loop. Então, o que fazer se o usuário deseja cancelar a execução do loop? Apenas crie uma thread e faça com que o termino do loop dependa do valor de uma variável (Fcanceled nesta dica), a qual pode ser modificada pelo usuário (com o Button2 nesta dica). Quando o usuário clicar no Button2, fcanceled será False e a thread irá parar o loop. Durante o loop, você pode clicar na barra de titulo para mostra o menu do sistema, você pode arrastar o form, etc. } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) Button1: TBitBtn; Button2: TBitBtn; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } FCanceled: Boolean; public { Public declarations } end; TThread1 = class(TThread) protected constructor Create; procedure Execute; override; procedure IncreaseNumber; end; var Form1: TForm1; implementation {$R *.dfm} constructor TThread1.Create; begin inherited Create(false); end; procedure TThread1.Execute; var success: Boolean; begin Self.Priority := tpLowest; with Form1 do begin while not FCanceled do begin // call Synchronize so that you can create more threads by clicking // the Start button and all created threads can run synchronously :) Synchronize(IncreaseNumber); end; end; end; procedure TThread1.IncreaseNumber; begin with Form1 do Edit1.Text := IntToStr(Succ(StrToInt(Edit1.Text))); end; procedure TForm1.FormCreate(Sender: TObject); begin Self.Caption := ''Você pode cancelar o Loop''; Edit1.Text := ''1''; Edit1.ReadOnly := True; Button1.Caption := ''Iniciar''; Button2.Caption := ''Parar''; end; procedure TForm1.Button1Click(Sender: TObject); begin FCanceled := False; TThread1.Create; end; procedure TForm1.Button2Click(Sender: TObject); begin FCanceled := True; end; end |
Como não parar uma aplicação Delphi durante um processo longo?
Como não parar a aplicação Delphi durante um processo longo?
Confira outros conteúdos:
Perguntas frequentes
Nossos casos de sucesso
Eu sabia pouquíssimas coisas de programação antes de começar a estudar com vocês, fui me especializando em várias áreas e ferramentas que tinham na plataforma, e com essa bagagem consegui um estágio logo no início do meu primeiro período na faculdade.
Estudo aqui na Dev desde o meio do ano passado!
Nesse período a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha
empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta é continuar estudando e praticando para ser um
Full-Stack Dev!
Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma é bem intuitiva e muuuuito didática a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!
Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda não tinha visto. A didática é do jeito que qualquer pessoa consegue aprender. Sério, to apaixonado, adorando demais.
Adquiri o curso de vocês e logo percebi que são os melhores do Brasil. É um passo a passo incrível. Só não aprende quem não quer. Foi o melhor investimento da minha vida!
Foi um dos melhores investimentos que já fiz na vida e tenho aprendido bastante com a plataforma. Vocês estão fazendo parte da minha jornada nesse mundo da programação, irei assinar meu contrato como programador graças a plataforma.
Wanderson Oliveira
Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exercícios práticos que não tem como não aprender, estão de parabéns!
Obrigado DevMedia, nunca presenciei uma plataforma de ensino tão presente na vida acadêmica de seus alunos, parabéns!
Eduardo Dorneles
Aprendi React na plataforma da DevMedia há cerca de 1 ano e meio... Hoje estou há 1 ano empregado trabalhando 100% com React!
Adauto Junior
Já fiz alguns cursos na área e nenhum é tão bom quanto o de vocês. Estou aprendendo muito, muito obrigado por existirem. Estão de parabéns... Espero um dia conseguir um emprego na área.