Добрый день!
Есть программа, которая запускает по 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;
Админ: пользуемся тегами для формления кода!