[shtrih]

Добрый день!

Есть программа, которая запускает по Speedbutton. Когда она выполняется, я нажимаю на крестик формы, но форма закрывается только, когда программа полностью отработает. Почему? И как сделать, чтобы она прерывалась? (Каждый раз делать проверки на Close мне кажется не правильно)

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 SpeedButton1.Enabled := False;

 ProgressBar1.Position:=0;

 ProgressBar1.Position:=ProgressBar1.Position+1;
 ProgressBar1.Update;
...................................................
 ProgressBar1.Position:=ProgressBar1.Position+1;
 ProgressBar1.Update;
.................................
end;

Админ: пользуемся тегами для формления кода!