[shtrih]

Добрый день!

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

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

[icWasya]

форма закрывается только, когда программа полностью отработает

Так оно и есть.

И как сделать, чтобы она прерывалась?

Каждый раз делать проверки (увы и ах)
Например так

Код:

1 2 3 4 5 6 7

ProgressBar1.Position:=ProgressBar1.Position+1; ProgressBar1.Update; if ModalResult<>0 then Exit; .................................................. . ProgressBar1.Position:=ProgressBar1.Position+1; ProgressBar1.Update; if ModalResult<>0 then Exit;

[Alegun]

Наверное лучше делать так, хотя общий смысл данного действа остался не понятен

Код:

1 2 3 4 5 6

while ProgressBar1.Position < ProgressBar1.Max do begin  ProgressBar1.Position:=ProgressBar1.Position+1;  ProgressBar1.Update;  if ModalResult<>0 then Exit; end;

[icWasya]

Наверно у человека вместо многоточий какие-то полезные вычисления делаются. И каждый раз разные. Но - автора - в студию!

[Alegun]

Сообщение от icWasya

Наверно у человека вместо многоточий какие-то полезные вычисления делаются...

Тогда ему такой вариант не подойдёт, проверку нужно производить совместно с вычислениями

[shtrih]

Сообщение от icWasya

Так оно и есть.

Каждый раз делать проверки (увы и ах)
Например так

Код:

Спасибо. Видимо на протяжении всего кода, придётся делать так.

[icWasya]

Кроме того, Вы даже кнопку нажать не сможете.
Ведь цикл обработки происходит так:
1) ждётся появление очередного сообщения Windows,(например нажатия SpeedButton1)
2) если есть сообщение, Выбрать его из очереди и
3) обработать.Например запустить SpeedButton1Click)
4) после обработки сообщения
5) Перейти к пункту 1)

То есть если во время выполнения длительной процедуры будете нажимать какие-нибудь кнопки на форме, их обработчики будут вызваны только после того, как эта процедура закончится.
Для того, что бы не "замораживать" интерфейс намертво, можно внутри этой длинной процедуры вызывать Application.ProcessMessages(); которая содержит внутри себя собственный цикл обработки сообщений.
[Щас закидают тухлыми помидорами ]
По этому более точный код должен быть таким

Код:

1 2 3 4 5 6 7 8 9

ProgressBar1.Position:=ProgressBar1.Position+1; ProgressBar1.Update; Application.ProcessMessages(); if ModalResult<>0 then Exit; .................................................. . ProgressBar1.Position:=ProgressBar1.Position+1; ProgressBar1.Update; Application.ProcessMessages(); if ModalResult<>0 then Exit;

И желательно на время выполнения этой длительной процедуры заблокировать (например Enabled:=false; ) те элементы интерфейса, которые могут привести к вызовам таких длительных процедур.