Visible формы. Откуда show

[AK BULLETS]

Добрый день!

Хочу, чтобы при открытии второй формы по кнопке на первой форме, первая форма стала невидима. При закрытии второй формы - первая видима. Но, почему то при этом

procedure TForm_MONITORING_PIR.FormClose(Send er: TObject;
var Action: TCloseAction);
begin
Form_OSNOVA.Visible:=true;
end;

Попадаю на procedure TForm_OSNOVA.FormShow(Sender: TObject);

Как сделать так, чтобы форма появилась, но на show я не попадал.

[Stilet]

но на show я не попадал.

А ты не в OnShow пропиши нужный код а в OnActivate

[AK BULLETS]

Такой вариант не подхродит.
Потому что
при появлении первой формы загружается много данных из базы данных и это дело тормозит. По этому я хочу это делать один раз. По этому при открытии второй формы мне нужно просто скрыть первую а при закрытии второй не обновлять (открывать) первую, а просто отобразить.
То есть чтобы данные не загружались.

[artemavd]

А если так:
На первой форме в событии кнопки:

Form1.Hide;
Form2.Show;

На второй форме при закрытии (по кнопке например):

Form2.Hide; //или Form2.Close;
Form1.Show;

[Stilet]

По этому я хочу это делать один раз.

Дык в OnCreate делай.
И между прочим я такие вещи всегда в поток пихаю, чтоб программе не мешал чего и тебе желаю.

[AK BULLETS]

)) Друг. Я так и делаю. Но это мне не подходит!) Почему, я описал выше.
В процедуре Form1.show и меня загружаются данные из БД.
Я хочу их загружать только один раз!
По этому при Form2.show мне нужно чтобы первая форма просто не отображалась, а при Form2.close - первая форма отображалась, но Form1.show не отрабатывало!
По этому думал решить вопрос при помощи Form1.Visible, но при Form1.Visible:=true я опять попадаю на Form1.show.

[AK BULLETS]

Сообщение от Stilet

Дык в OnCreate делай.
И между прочим я такие вещи всегда в поток пихаю, чтоб программе не мешал чего и тебе желаю.

О... А как это?

[evg_m]

при появлении первой формы загружается много данных из базы данных и это дело тормозит. По этому я хочу это делать один раз.

Кто мешает это (загружать данные) делать не в formshow (несколько раз) а в formCreate(один раз)

[AK BULLETS]

Если помещаю код в FormCreate при запуске появляется ошибка (

[AK BULLETS]

Application.Initialize;
Application.CreateForm(TForm_START, Form_START);
Application.CreateForm(TForm_OSNOVA , Form_OSNOVA); - тут код
Application.CreateForm(TForm_SPR_FI LIAL, Form_SPR_FILIAL); - тут ошибка
Application.CreateForm(TForm_SPR_OB J_TIP, Form_SPR_OBJ_TIP);
Application.CreateForm(TForm_SPR_RA ZDEL, Form_SPR_RAZDEL);