Текущий архив: 2006.02.05;
Скачать: CL | DM;
Вниз
Как прекратить выполнение программы в процессе инициализации? Найти похожие ветки
← →
Kot_ (2006-01-05 13:03) [0]Есть код:
Application.Initialize;
Application.CreateForm(TFormPredpr, FormPredpr);
Application.CreateForm(TFormIdentif, FormIdentif);
FormIdentif.ShowModal;
if closeprog=true then exit;
Application.CreateForm(TFormLicevoi, FormLicevoi);
Application.Run;
Выполнение программы прерывается, но выдается ошибка: «Runtime error 216 at 00403472», как этого избежать?
← →
Е. (2006-01-05 13:08) [1]Application.Initialize;
Application.CreateForm(TFormPredpr, FormPredpr);
Application.CreateForm(TFormIdentif, FormIdentif);
FormIdentif.ShowModal;
if closeprog=true then Application.Terminate;
Application.CreateForm(TFormLicevoi, FormLicevoi);
Application.Run;
← →
Kot_ (2006-01-05 13:11) [2]Спасибо
← →
Плохиш © (2006-01-05 13:39) [3]
if not closeprog then
begin
Application.CreateForm(TFormLicevoi, FormLicevoi);
Application.Run;
end;
Страницы: 1 вся ветка
Текущий архив: 2006.02.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
