Ошибка

[WarPig]

Сообщение от Аватар

Тогда смотри #7

Я эту форму создаю из главного меню. Из нее я запускаю модальную форму добавления данных. Получается, форма закрывается в этот момент?
Перед добавлением данных написал:

tform_delivery.Create(Application);

Все равно та же ошибка.
form_delivery - подчиненная mdi-форма, а форма добавления данных - обычная форма

[Аватар]

Создание вообще-то так:

form_delivery:=tform_delivery.Create(Application);

И если таких MDI-дочерних несколько, то облом будет при использовании переменной form_delivery. И там-ли и тогда когда нужно создаете без приведенного кода не известно

[WarPig]

Сообщение от Аватар

Создание вообще-то так:

form_delivery:=tform_delivery.Create(Application);

И если таких MDI-дочерних несколько, то облом будет при использовании переменной form_delivery. И там-ли и тогда когда нужно создаете без приведенного кода не известно

Форма после создания не была создана, но отображалась. Создавал так:

procedure Tform_general.N6Click(Sender: TObject);
var i:integer;
begin
f:=0;
//проверяем, активна ли наша форма
if ActiveMDIChild.Caption<>'Запись' then begin
//если нет то ищем ее среди неактивных  и если находим, то показываем ее
for i:=0 to form_general.MDIChildCount-1 do
if form_general.MDIChildren[i].Caption='Запись' then
begin
MDIChildren[i].Show;
f:=1;
end;
end
else f:=1;
//если форма еще не создана, то создаем ее
if f<>1 then Tform_delivery.Create(Application);
if form_delivery = nil then showmessage('Не создана');
end;

а нужно было так?:

if f<>1 form_delivery:=Tform_delivery.Create(Application);

Просто остальные формы создаются нормально, поэтому на этот код я внимания не обращал.

[Аватар]

if f<>1 никогда не выполнится, потому что f всегда равно 1

[WarPig]

Сообщение от Аватар

if f<>1 никогда не выполнится, потому что f всегда равно 1

При

if f<>1 form_delivery:=Tform_delivery.Create(Application);

Все адекватно работает

[Аватар]

Угу, мой пост #14 ошибочен

[WarPig]

Спасибо всем за помощь