Действия после полной инициализации программы.

[Человек_Борща]

Доброго времени суток!

Раньше проблемы не создавало, то что в OnCreate формы стоит загрузка настроек и запуск долгих операций.

Теперь это очень сильно колышит меня.

Вопрос:
Как производить действия только после ПОЛНОЙ инициализации приложения(создание всех форм и т.д.)?

[chertovich]

А что если открыть исходный код (*.dpr) и писать там:

program Project1;

uses
  Forms, Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);

  // После создания всех форм
  ShowMessage('Пиши сюда');

  Application.Run;
end.

[Аватар]

Как, например, дельфи 7-ая загружается - сначала заставочка, проходит инициализация, а потом основное окно вываливается. Что мешает на фоне созданного, но не видимого основного окна сделать заставку, инициалацию, грохнуть заставку и активизировать основное окно?

[Человек_Борща]

Нет нет, это не то.

Запускается моя программа в OnCreate сработывает инициализация кучи классов.
Затем запуск в работу некоторых из них. В итоге окна созданы ещё не все и система получает двойную, а то и тройную нагрузку.

Смотрю в сторону DataModule. Может его как-то ко всему этому прикрутить?

[haruhi]

событие OnShow главной формы устраивает?

если и OnShow не устраивает, то альтернативный вариант: в OnShow запустить таймер на 200-250 мс, и в этом таймере всё сделать, когда сработает таймер программа будет гарантировано инициализирована

[Аватар]

Если уж вы сразу создаете все формы, то в посте 2 вам и дали наводку - в dpr создаете все формы и DataModule, если есть. Потом перед Application.Run вызываете Public-метод главной формы или DataModule и делаете в нем настройки. Заставка по желанию, с ней симпатичней, если инициализация затягивается

система получает двойную, а то и тройную нагрузку

Это как, 80% загрузки процессра вместо 20-30%? Не вижу проблемы

[Человек_Борща]

Это как, 80% загрузки процессра вместо 20-30%? Не вижу проблемы

Как минимум не хилые тормоза когда программа в автозапуске у юзера.

[Аватар]

Если форм много, какой смысл их создавать в dpr? Почему бы не создавать в dpr только главную, а остальные при необходимости обращения к ним. Вышли из формы - удаляйте. Зачем их в памяти созданные держать? Вот и момент снижения ресурсоемкости в момент загрузки, если это актуально. Особенно это модальных форм касается

[3D Hunter]

А может быть у Вас изначально неверная архитектура приложения? Я например сделал бы так:
1. Вынес все глобальные классовые переменные в общий модуль, например UGlobal.pas, подключил бы его к проекту.
2. В событии OnCreate главной формы создавал бы поток, который и инициализировал бы все ваши классы в фоновом режиме, а на главной форме было бы сообщение типа "инициализация данных...пожалуйста, подождите".
3. В событии OnTerminate этого потока написал бы код, который бы переводил главную форму или приложение в целом в рабочее состояние готовности.

[Человек_Борща]

Возможно и архитектура.

НО не думаю, инициализация классов проходит быстро.
А вот запуск некоторых в работу, подвешивает программу.

Попробую вариант с потоком.