Открытие окна при событии FormCreate.

[фЁдОр]

Здравствуйте, уважаемые программисты!
Сейчас постараюсь изложить суть своей проблемы: у меня программа работающая с БД, при запуске открывается около минуты и поэтому я хочу сделать форму показываущую загрузку программы, ну знаете как в играх или в каких-лобо программах. Если я правильно мыслю, то, что бы это сделать я: создаю форму(пишу там загрузка программы и т.д.)->подклучаю к главной форме(на котором вся БД)->и по событии FormCreate пишу:
form1.Show;
form2.close;
Да и еще, посколько форму загрузки я создал после своей главной формы, то что бы установить приоритет, т.е. сделать, что бы окно загрузки отображалось в первую очередь, я из пункта меню делаю: проект->опции->и в выпадающем списке выбираю эту окно загрузки.

Но такой вариант не катит! Ошибка заключается в том, что сам этот код нельзя писать по событии FormCreate.
Подскажите, пожалуйста, как мне правильно реализовать свою задачу?

[AlDelta]

http://programmersforum.ru/showthrea...F2%E0%E2%EA%E0

[фЁдОр]

AlDelta, спасибо за ссылку! Буду теперь разбираться.

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

[Jeni]

Сообщение от фЁдОр

но должен же я сделать эту заставку, а казалоль такая простая вещь.

В принципе, всё не так уж и сложно. Допустим, имеется главная форма (TMainForm) и форма-заставка (TSplashForm). Нужно убрать форму-заставку из списка автосоздаваемых (в опциях проекта), а в исходниках проекта записать нечто следующее:

program MyProject;

uses
  Windows, Forms, SysUtils,
  SplashFormUnit in 'SplashFormUnit.pas' {SplashForm},
  MainFormUnit in 'MainFormUnit.pas' {MainForm};

{$R *.res}

begin
  // Создание и запуск формы-заставки
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Visible := True;
  SplashForm.BringToFront;
  Application.ProcessMessages;

  // Создание главной формы
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Здесь SplashForm - это переменная, которая автоматически создается для класса формы TSplashForm и находится в модуле SplashFormUnit (т.е. SplashForm: TSplashForm)

В главной форме, в обработчике OnCreate можно форму-заставку удалить. А еще лучше это сделать в обработчике OnShow, т.е. непосредственно перед появлением главной формы на экране, когда вся инициализация уже гарантированно закончилась. Например:

// Удаление формы-заставки
SplashForm.Visible := False;
SplashForm.Free;

[фЁдОр]

Все ребят, спасибо большое, все получилось!

[фЁдОр]

Все ребят, получилось . Спасибо большое за оказанную помощь!
Если кому не составит труда, то объясните, пожалуйста, я правда даже не знаю как правильно назвать этот раздел, где содержится информация об используемых формах. Для чего используется этот раздел, ну понятно, что я его использовал для создания заставки, но ведь это не основное его назначение? Что это за зверь такой?
Что б не быть голословным и пояснить, что я имею ввиду привожу код этого раздела:

program BDDiska;

uses
  Forms,
  FormDisk in 'FormDisk.pas' {Form1},
  PoiskTowaraUnit2 in 'PoiskTowaraUnit2.pas' {Form2},
  spravka_o_razrabotchike in 'spravka_o_razrabotchike.pas' {Form3},
  zayavka_na_sotrudnichestvo in 'zayavka_na_sotrudnichestvo.pas' {Form4},
  karta_stavrop in 'karta_stavrop.pas' {Form5},
  zagruzka in 'zagruzka.pas' {Form6};

{$R *.res}

begin
  Application.Initialize;
  Form6:=TForm6.Create(Application);
  form6.Visible:=true;
  form6.BringToFront;
  Application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.

Понимаю, что некоторым людям вопрос покажется глупым, но не дошел я еще до этой ясности, поэтому прошу Вас просвятить меня.

И еще для полного понимания Jeni или кто знает, поясните, пожалуйста, вот эту строчку кода:
form6.BringToFront; //
form6 - эта форма заставки.

[Stilet]

Эта строчка помешает окно на перед чтоб его увидеть можно было.

[Jeni]

Я не совсем понял, что именно требуется пояснить, но попробую (так, как я понял вопрос).

Сообщение от фЁдОр

не знаю как правильно назвать этот раздел, где содержится информация об используемых формах. Для чего используется этот раздел, ну понятно, что я его использовал для создания заставки, но ведь это не основное его назначение? Что это за зверь такой?

Этот самый "раздел" и есть, с формальной точки зрения, сама программа. Об этом говорит первая строка program BDDiska; Всё остальное - это лишь подключаемые модули. Правда этот файл создается средой разработки автоматически и менять там что-то вручную требуется редко, поэтому может создаваться впечатление, будто программа - это модуль с главной формой, но это не так - главная форма просто запускается автоматически.

Сообщение от фЁдОр

uses
Forms,
FormDisk in 'FormDisk.pas' {Form1},
PoiskTowaraUnit2 in 'PoiskTowaraUnit2.pas' {Form2},
spravka_o_razrabotchike in 'spravka_o_razrabotchike.pas' {Form3},
zayavka_na_sotrudnichestvo in 'zayavka_na_sotrudnichestvo.pas' {Form4},
karta_stavrop in 'karta_stavrop.pas' {Form5},
zagruzka in 'zagruzka.pas' {Form6};

Это список подключаемых модулей. Строка имя_модуля in файл_модуля означает, что данный модуль входит в состав проекта как составная часть. В фигурных скобках указывается имя формы (или фрейма), но это просто комментарий. Порядок расположения модулей обычно не имеет значения, но иногда это может быть важно, если в модулях в секциях initialization/finalization выполняются какие-то действия, особенно с общими глобальными переменными - раньше "срабатывают" модули, записанные первыми (для finalization - наоборот).

Сообщение от фЁдОр

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.

Строка Application.Initialize не имеет особого значения для обычных программ, важна только для тех, которые используют автоматизацию OLE и прочие майкрософтовские примочки. Но и вреда от нее нет.
Application.CreateForm(TFormX, FormX); - последовательное создание форм. Форма, которая таким образом создается первой и является главной.
Application.Run; - собственно запуск программы. По большому счету запускается процедура обработки сообщений - циклически просматривает очередь сообщений для данной программы. Если сообщение есть - вызывается некоторый обработчик сообщения (в итоге эти сообщения воспринимаются компонентами как события). Если сообщений нет - цикл повторяется. И так до выхода из программы. Это, конечно, упрощенная модель.

form6.BringToFront; - необязательная строка, но без нее форма-заставка может оказаться иногда закрыта другими окнами.

Application.ProcessMessages; - тоже необязательно, но очень желательно, т.к. прорисовка окон (и вообще, любых компонентов) имеет очень низкий приоритет. В результате, если, например, главная форма в момент создания выполняет ресурсоемкие операции, то заставка, хотя формально и запустится, но может просто не прорисоваться на экране.

[Alter]

[QUOTE=фЁдОр;72445]
program BDDiska;

uses
Forms,
FormDisk in 'FormDisk.pas' {Form1},
PoiskTowaraUnit2 in 'PoiskTowaraUnit2.pas' {Form2},
spravka_o_razrabotchike in 'spravka_o_razrabotchike.pas' {Form3},
zayavka_na_sotrudnichestvo in 'zayavka_na_sotrudnichestvo.pas' {Form4},
karta_stavrop in 'karta_stavrop.pas' {Form5},
zagruzka in 'zagruzka.pas' {Form6};

{$R *.res}

begin
Application.Initialize;
Form6:=TForm6.Create(Application);
form6.Visible:=true;
form6.BringToFront;
Application.ProcessMessages;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.
[QUOTE]

Вообщето правильнее формы динамически создавать и удалять из памяти когда нужно, может здесь такой случай что всё сразу надо создать .

[фЁдОр]

Спасибо, ребят, большое, что просветили меня! Правда интересно стало, что формы можно создавать и удалять динамически, с целью экономии памяти, но это, пожалуй, для следующей темы. Правда, чуть позже.