На главную

Остановить длинное действие

Остановить длинное действие

ОГЛАВЛЕНИЕ    HOME  MAIL



Эта программа выходит из бесконечного цикла, если программу пытаются закрываеть.

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  repeat
    Form1.Canvas.Pixels[random(Form1.ClientWidth),
      random(Form1.ClientHeight)] :=
      RGB(random(255),random(255),random(255));
    Application.ProcessMessages;
  until Application.Terminated;
end;
Эта программа останавливается при нажатии на Button2.
procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  Form1.Tag := 0;
  repeat
    Form1.Canvas.Pixels[random(Form1.ClientWidth), random(Form1.ClientHeight)] :=
      RGB(random(255),random(255),random(255));
    Application.ProcessMessages;
  until Form1.Tag > 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Tag := 1;
end;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz