![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
ребят помогите!!! у меня 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; |
|
#4
|
|||
|
|||
|
Надо выйти из процедуры или из цикла:
Код:
if Application.Terminated then Exit; // или Break
Application.ProcessMessages; |