Form1.onShow

← →
denis24 (2003-07-23 10:04) [0]

Есть две формы(form1,form2) .Обе созданы.Можно ли в сабже заполнять контролы form2?А то у меня выдает acess violetion......

← →
Skier © (2003-07-23 10:06) [1]

Абстрактный вопрос.

← →
Anatoly Podgoretsky © (2003-07-23 10:10) [2]

Можно.
Но у тебя ошибка в программе.

← →
Prov © (2003-07-23 10:19) [3]

Ты бы код привёл...

← →
denis24 (2003-07-23 10:59) [4]

procedure TFRMMAIN.FormShow(Sender: TObject);
begin
with DataModule2.Query1 do begin
close;
sql.clear;
sql.add ("select * from dba.prdog_fiz_kred_dog");
open;
with DataModule2.Query2 do begin
close;
sql.clear;
sql.add("select BCP_CPIDD from cpdl order by BCP_CPIDD");
open;
while not eof do
begin
frmDetail_1.cmbkorporatsija.Items.Add (Fields [0].asstring);
next;//вот здесь и вылазит ошибка ,,,как будто форма не создана,но она создавалась вместе с с frmmain

← →
Reindeer Moss Eater (2003-07-23 11:01) [5]

То что она создалась, еще не говорит о том, что переменная frmDetail_1 содержит ссылку на нее.

← →
denis24 (2003-07-23 11:10) [6]

где это сделать?

← →
Reindeer Moss Eater (2003-07-23 11:18) [7]

что "это" ?

← →
denis24 (2003-07-23 11:21) [8]

нормально ответить нельзя?Конкретно можеш ответить?

← →
Reindeer Moss Eater (2003-07-23 11:24) [9]

Сделай это в ванной.

← →
Spawn © (2003-07-23 11:31) [10]

denis24 (23.07.03 11:21) ты форму frmDetail_1 сам создаешь?

← →
Sandman25 © (2003-07-23 11:32) [11]

Это нужно переместить в TfrmDetail_1OnCreate

with DataModule2.Query2 do begin
close;
sql.clear;
sql.add("select BCP_CPIDD from cpdl order by BCP_CPIDD");
open;
while not eof do
begin
frmDetail_1.cmbkorporatsija.Items.Add (Fields [0].asstring);
next;//вот здесь и вылазит ошибка ,,,как будто форма не создана,но она создавалась вместе с с frmmain

← →
denis24 (2003-07-23 11:34) [12]

To пожирателю чего-то,,,откуда такие мудаки берутся?
да
Application.CreateForm(TfrmDetail_1,frmDetail_1);

← →
Sandman25 © (2003-07-23 11:35) [13]

Но это же происходит ПОСЛЕ вызова procedure TFRMMAIN.FormShow(Sender: TObject);

Application.CreateForm(TfrmDetail_1,frmDetail_1);

См. Sandman25 © (23.07.03 11:32)
+
frmDetail_1.cmbkorporatsija.Items.Add (...
заменить на
cmbkorporatsija.Items.Add (...

← →
Skier © (2003-07-23 11:37) [14]

>Sandman25 © (23.07.03 11:35)

> Но это же происходит ПОСЛЕ вызова procedure TFRMMAIN.FormShow(Sender:
> TObject);

???

← →
Reindeer Moss Eater (2003-07-23 11:39) [15]

To denis24 :
Их делают твои мама и папа.

100 процентов, что или не создана или переменная черт знает что содержит.

← →
Reindeer Moss Eater (2003-07-23 12:07) [18]

Или вообще не форма вызывает исключение.

Я предполагал, что вторая форма "автосоздается" в dpr,
а судя по denis24 (23.07.03 10:59) (FormShow) загрузка происходит в OnShow.
Я сделал аналогичный проект, у меня никакого AV. Что-то он не договаривает.

← →
denis24 (2003-07-23 12:54) [21]

Все решил по другому.
Там где создавал формы сделал первой frmDetail_1 а в его OnCreate
кинул нужный код

Form1.onShow Найти похожие ветки