application.ProcessMessages;

[UROKSAN]

ребят помогите!!! у меня application.ProcessMessages работает нормально когда прога считает(Т.Е. можно двигать форму итд), но вот закрыть форму(нажимая крестик) во время обработки информации не удается. Подскажите если знаете в чем дело!!!

[Квэнди]

код скрываете ?

[alexBlack]

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

ребят помогите!!! у меня application.ProcessMessages работает нормально когда прога считает(Т.Е. можно двигать форму итд), но вот закрыть форму(нажимая крестик) во время обработки информации не удается. Подскажите если знаете в чем дело!!!

Нужно прерывать цикл обработки. Например ввести признак, устанавливать его в OnClose и проверять в цикле:

   private
       FClose : boolean;

   ...
   FClose := false;
   While not FClose do begin
      Application.ProcessMessages;
   end;
   ... 
   procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
   begin
      FClose := true;
   end;