|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
application.ProcessMessages
ребят помогите!!! у меня application.ProcessMessages работает нормально когда прога считает(Т.Е. можно двигать форму итд), но вот закрыть форму(нажимая крестик) во время обработки информации не удается. Подскажите если знаете в чем дело!!!
|
#2
|
|||
|
|||
хм....
тебе надо предусмотреть выход из твоих вычислений например по флагу какому-то и в обработке onClose взводить самому флаг...
Код:
var flag: boolean = false; //где то в коде flag := false; for i:=1 to 10000000 do //длинный циклы какой-то begin if Flag then Break;//выход из цикла // а если надо и из подпрограммы то if Flag then Exit; {твоя обработка} end; procedure Form1.OnClose //обработчик события onClose формы begin flag := true; end; Admin: Используем тег CODE! тогда должно будет работать Последний раз редактировалось Admin, 10.04.2008 в 13:19. |
#3
|
||||
|
||||
Добавь в цикл такую строчку
Код:
if Application.Terminated then Break; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#4
|
|||
|
|||
Надо выйти из процедуры или из цикла:
Код:
if Application.Terminated then Exit; // или Break Application.ProcessMessages; |