Var BreakFlaq: boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
BreakFlaq:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
breakFlaq:=False;
for i:=1 to 10000 do begin
Application.ProcessMessages;
if BreakFlaq then Break;
...
end;
end;
Application.ProcessMessages
Application.ProcessMessages Че это такое, для чего надо и как вызывать! В хелпе пачти не чего нет!!
Заставляет приложения обработать накопившиеся сообщения. Я пользую в больших циклах (для того чтобы форму как минимум можно было сдвинуть или свернуть). Иначе приложение делает вид что висит.
Так и вызываешь где-то в долгом процессе вычислений. Но учти, что это значительно увеличит время работы долгих циклов.
Так и вызываешь где-то в долгом процессе вычислений. Но учти, что это значительно увеличит время работы долгих циклов.
Вот пример. Допустим, нужно организовать отмену длительной операции при нажатии, например, на кнопку:
При нажатии Button2 начинается цикл, который может быть прерван нажатием кнопки Button1.
Ну, а если пользователь решит закрыть программу в ходе выполнения цикла, то в его [цикла] тело нужно добавить строчку:
Вот наглядный пример организации приложения с помощью вызова метода
Application.ProcessMessages.
Код:
При нажатии Button2 начинается цикл, который может быть прерван нажатием кнопки Button1.
Ну, а если пользователь решит закрыть программу в ходе выполнения цикла, то в его [цикла] тело нужно добавить строчку:
Код:
...
if Application.Terminated then Break;
...
if Application.Terminated then Break;
...
Вот наглядный пример организации приложения с помощью вызова метода
Application.ProcessMessages.