В моей прграмме есть обработчик TForm1.FormCreate который работает фактически
в до Application.Run

Код

Application.Initialize; Application.Title := '123'; Application.CreateForm(TForm1, Form1); {где то здесь} Application.Run;

Вопрос: как в зависимости от результата работы этого обработчика (TForm1.FormCreate)
сделать так что бы программ не запустилась?

Отладчиком я нашел процедуру которая запускается сразу после Application.Run
и вставил туда проверку специальной переменной. Но только никак не пойму прочему
именно эта процедура вызывается первой. Фактически это процедура OnShow объекта
только вот он как раз и непоказывается сразу. Да и думаю этот способ не очень красивый.

Подскажите свои решения этого вопроса.

Halt

Код

Application.Terminate;

Цитата(Droll @ 5.11.2005, 14:57)

1:   Application.Terminate;

в этом случае программа выключится, только после выполнения строчки
Application.Run;

И в каком месте написать? Если пишем так:

Код

Application.CreateForm(TForm1, Form1);   if УСЛОВИЕ then halt;   Application.Run;

то получаем AV. Если напишем так:

Код

Application.CreateForm(TForm1, Form1);   if УСЛОВИЕ then Application.Terminate;   Application.Run;

то ошибки не возникает но программа все равно обрабатывает события OnShow и т.д. А это как раз ненадо. Повторю, что я нашел событие обрабатываемое первым после Application.Run и закрываю программу оттуда. Только она все равно на мгновенье появляется на экране, что неприятно и к тому же неизвестно почему именно эта процедура OnShow обрабатыватся первой и всегда ли так будет? Этот элемент сразу не показывается, даже в дизайне не он виден, и покажется он только после программного включения. в общем не совсем нужный метод.


Если прям в TForm1.FormCreate написать Halt то опять получаем AV. Меняем здесь Halt на Application.Run то ошибки нет и программа продолжает свою работу.

Даже если написать

Код

procedure TForm1.FormShow(Sender: TObject); begin   if УСЛОВИЕ then Application.Terminate; end;

то опять таки программа продолжает свою работу.

Ну должен же быть выход...

можно сделать на активную форму:
Visible:=false;
но при обработке Application.Run; всё равно на короткий момент форма моргнёт, ещё вариант минимизировать её...

Цитата(RST8 @ 5.11.2005, 17:25)

Если прям в TForm1.FormCreate написать Halt то опять получаем AV

Что получаем? Сам-то пробовал? Если написать

Код

procedure TForm1.FormCreate(Sender: TObject); begin halt end;

то прога не запускается (точнее запускается и закрывается. При этом никаких мельканий нет). Что еще нужно? Или я не правильно понял

Цитата(RST8 @ 5.11.2005, 12:51)

Вопрос: как в зависимости от результата работы этого обработчика (TForm1.FormCreate) сделать так что бы программ не запустилась?

Вариантов много, например:
1. См. Poseidon

Код

procedure TForm1.FormCreate(Sender: TObject);     begin     halt     end;

2.

Код

procedure TForm1.FormCreate(Sender: TObject); begin     Application.ShowMainForm := false;     Application.Terminate; end;

3.

Код

program Project1; uses  Forms,  SysUtils,  Unit1 in 'Unit1.pas' {Form1}; type  TDummy=class  class procedure AppException(Sender: TObject; E: Exception);  end; class procedure TDummy.AppException(Sender: TObject; E: Exception); begin  Application.Terminate; end; {$R *.res} begin  Application.Initialize;  Application.OnException := TDummy.AppException;  Application.CreateForm(TForm1, Form1);  Application.OnException := nil;  Application.Run; end. в Unit1: procedure TForm1.FormCreate(Sender: TObject); begin  raise Exception.Create('Error'); end;

Проверил...

halt...

работает нормально... приложение нормально завершает работу и без всякого моргания...

Цитата

Что получаем? Сам-то пробовал?

Конечно пробывал.

----------
2Poseidon: AV = Access Violation
-------

Да если все это написать в новом проекте то halt работает.

Но я использую Fast Report 3. Далее если на Halt поставть точку
останова и далее по F7 (доооолго) можно добраться до

Модуль frxClass

Код

destructor TfrxReport.Destroy; begin   inherited;   Preview := nil;   FDatasets.Free;   FEngineOptions.Free;   FPreviewOptions.Free;   FPrintOptions.Free;   FReportOptions.Free;   FExpressionCache.Free;   FScript.Free;   FScriptText.Free;   FVariables.Free;   FEngine.Free;   FPreviewPages.Free;   FErrors.Free;   FStyles.Free;   FSysVariables.Free;   FEnabledDataSets.Free;   FTimer.Free;   TObject(FDrawText).Free;   if FParentForm <> nil then     FParentForm.Free; end;

после выполнения последне строки ( if FParentForm <> nil then FParentForm.Free;)
нажимаем F7 еще раз и получаем этот самый AV. Вот так.

Цитата(RST8 @ 5.11.2005, 21:20)

после выполнения последне строки ( if FParentForm <> nil then FParentForm.Free;) нажимаем F7 еще раз и получаем этот самый AV. Вот так.

1. Проверь порядок создания объекта... возможно где-то у тебя он освобождается раньше...и связи с другими объектами...

Цитата(Albinos_x @ 5.11.2005, 21:40)

1. Проверь порядок создания объекта... возможно где-то у тебя он освобождается раньше...и связи с другими объектами...

Да я сам в обработчике procedure TForm1.FormCreate(Sender: TObject); ничего такого несоздаю. Только форму создал - показал - уничтожил. Моожет в ней дело, хммм попробую без нее.

Пока самое лучшее что я нашел это перенес обработчик в событие OnShow вместо OnCreate .
Там использую

Код

Application.Terminate;     exit;

Так работает нормально.


-------------------- Добавлено позже -----------------------

Разместил Halt самой первой командой в TForm1.FormCreate(Sender: TObject); Сразу вылетает ошибка.
Наверное это прикол FastReporta.

Это сообщение отредактировал(а) RST8 - 5.11.2005, 21:57

Цитата(RST8 @ 5.11.2005, 21:54)

Разместил Halt самой первой командой в TForm1.FormCreate(Sender: TObject); Сразу вылетает ошибка. Наверное это прикол FastReporta.

предпологаю... может ошибаюсь...
ты компанентом пользуешся или вручную создаёшь?
если компанентом.... то скорее всего ошибка из-за того, что он не успел создаться, а уничтожение всё равно происходит.... по крайней мере... такие глюки вылетают при использовании компанентов с закладки Servers...про FastReporta ничего сказать не могу, ни разу не использовал... но возможно ситуация такая же...

Нет руками не создаю. Хотя можно попробовать, времени нет на такие эксперементы.

Но, если создать пустой проект и положить на него FastReport то при прочих равных с
другим проектом условиях такого невозникает. Будет время поподробнее покапаю.

Как считаеш перенос обработчика из FormCreate в OnShow это нормально? Вроде бы
все работает так как надо. Не получиться ли такой ситуации что он вызовется повторно?

Цитата(RST8 @ 5.11.2005, 22:59)

Как считаеш перенос обработчика из FormCreate в OnShow это нормально?

смотря что он делает...

Цитата(RST8 @ 5.11.2005, 22:59)

Не получиться ли такой ситуации что он вызовется повторно?

может и получится...

Цитата(RST8 @ 5.11.2005, 22:59)

Нет руками не создаю. Хотя можно попробовать, времени нет на такие эксперементы.

Посмотри настнойки компанента...поставь по умолчанию... а инициализацию далай после строки прерывания работы программы