Application.terminate а программа продолжает работать

← →
Tempora (2006-05-18 09:53) [0]

Есть процедура Form1.OnShow внутри которой код:
.....
if DirectoryExists(ini.ReadString("Local","loc_path","c:"))= false then begin
Application.MessageBox(
"Локальная папка не существует.",
"Ошибка",
MB_OK + MB_ICONERROR);
application.Terminate;
end;
........что-то дальше
Я знаю что directoryExists точно должно вернуть false, оно и возвращает это и выводит сообщение об ошибке, но работа программы продолжается, идет выполнение команд которые указаны после этого условия.
Пожалуйста, подскажите, что это?

← →
Сергей М. © (2006-05-18 10:03) [1]

после Application.Terminate напиши Application.ProcessMessages

← →
ЮЮ © (2006-05-18 11:00) [2]

поместить этот код в dpr.
Зачем созавать форму и уже в OnShow решать, что это было ошибкой?

← →
Tempora (2006-05-18 11:59) [3]

> после Application.Terminate напиши Application.ProcessMessages

Не помогает.

← →
Сергей М. © (2006-05-18 12:02) [4]

> Tempora (18.05.06 11:59) [3]

Ну и выбрось тогда из головы эту затею.

А для новой затеи прислушайся к [2]

← →
ЮЮ © (2006-05-18 12:05) [5]

Кстати, такое работает как раз в OnShow:

Tester.Streamer.LoadToStringList(sl, "Marks.ini"); if sl.Count = 0 then begin Application.MessageBox( PChar("Не найден файл параметров " + Tester.Streamer.ZipName + "\" + "Marks.ini"), "Ошибка инициализации", 0 ); Close; end;

← →
ASoft (2006-05-18 12:14) [7]

> идет выполнение команд которые указаны после этого условия.

Если не хотите, чтобы в теле процедуры продолжалось условие после application.Terminate поставьте :
...
begin Application.Terminate; Exit; end;

но, возможно, правильнее будет [2]

← →
Tempora (2006-05-18 12:27) [8]

> begin
> Application.Terminate;
> Exit;
> end;

Спасибо, работает.
Всем спасибо за советы. В следующий раз буду так и делать.

Application.terminate а программа продолжает работать Найти похожие ветки