Закрытие модальной формы при выполняющимся цикле

[garuna]

На модальной форме есть долгий цикл. Как организовать выход из цикла и закрытие формы при клике на "X" в правом вернем углу формы? Есть какие-нибудь способы?

[northener]

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

На модальной форме есть долгий цикл. Как организовать выход из цикла и закрытие формы при клике на "X" в правом вернем углу формы? Есть какие-нибудь способы?

Вставить в тело цикла строку

Application.ProcessMessages;

[garuna]

northener, пробовал, не помогло

[northener]

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

northener, пробовал, не помогло

Покажи как пробовал. И уточни что в том цикле делается.

[garuna]

northener,

В цикле (тут несколько циклов) делается подсчет сколько раз каждое слово встречается в ListView1. Результат выводится в ListView2.
Если форма вызывается НЕ модально, то всё отлично закрывается. А вот если модально, тогда форма не закрывается пока не выполнится процедура.

begin
  FreeAndNil(_tmpIMGL);
  ListView2.Clear;
  ListView2.Items.BeginUpdate; 
  with TStringList.Create do
  try
   for i := 0 to ListView1.Items.Count-1 do
   if (Pos('.', ListView1.Items[i].SubItems[1]) > 0) and (Pos('http', ListView1.Items[i].SubItems[1]) > 0)
   then
   begin
    Add(ListView1.Items[i].SubItems[1]);
    if Application.Terminated  // проверка на закрытие
    then
    begin
     ListView2.Items.EndUpdate;
     Exit;
    end;
   end;
   Sorted:= True;
   CurrentValue:= Strings[0];
   C := 1;
   for i := 1 to Count -1 do
   if Strings[i] = CurrentValue then inc(C)
   else
   begin
    newList:= ListView2.Items.Add();
    newList.Caption:= CurrentValue;
    newList.SubItems.Add(IntToStr(C));
    CurrentValue := Strings[i];
    C:= 1;
    Application.ProcessMessages;
    if Application.Terminated // проверка на закрытие
    then
    begin
     ListView2.Items.EndUpdate;
     Exit;
    end;
   end;
   newList:= ListView2.Items.Add();
   newList.Caption:= CurrentValue;
   newList.SubItems.Add(IntToStr(C));
  finally
   Free;
  end;
  ListView2.SortType := stNone;
  ListView2.CustomSort(@LVCompareEx, 0);
  for i:=0 to ListView2.Items.Count-1 do
  begin
   for j:= ListView1.Items.Count-1 downto 0 do
   begin
    if Pos(listView2.Items[i].Caption, ListView1.Items[j].SubItems[1]) > 0 then
    begin
     if Application.Terminated // проверка на закрытие
     then
     begin
      ListView2.Items.EndUpdate;
      Exit;
     end;
     ListView2.Items[i].SubItems.Add(ListView1.Items[j].Caption);
     ListView2.Items[i].SubItems.Add(ListView1.Items[j].SubItems[1]);
     Break;
    end;
   end;
  end;
  _tmpIMGL:= TImageList.Create(nil);
  _tmpIMGL.AllocBy:= ListView2.Items.Count;
  ListView2.SmallImages:= _tmpIMGL;
  for i:=0 to ListView2.Items.Count-1 do
  begin
   bm:= nil;
   try
    bm:= GetICO(ListView2.Items[i].Caption, True);
    ListView2.Items[i].ImageIndex:= _tmpIMGL.Add(bm, nil);
   finally
    FreeAndNil(bm);
   end;
   if Application.Terminated // проверка на закрытие
   then
   begin
    ListView2.Items.EndUpdate;
    Exit;
   end;
  end;
  ListView2.Items.EndUpdate;
 end;

[garuna]

заменил

 if Application.Terminated // проверка на закрытие
 then

на

if sCancel // sCancel переменная, которая установливил в True на событии OnCloseQuery
then

но всё равно закрывается только после того как выполнится процедура

[Аватар]

  while True do begin
    //здесь тело цикла
    Application.ProcessMessages;
    if ModalResult<>mrNone then Break;  // или Exit если послецикла нет
  end;

[garuna]

Аватар,

Благодарю! Теперь всё ОК