Заморочка с дочерними окнами

[daunito]

Всем привет! У меня приложение MDI. Динамически создается куча дочерних окон. Глюк: если развернуть дочернее окно, то при открытии нового дочернего окна (с неизменяемыми размерами типа single) все окна восстанавливаются до нормального размера... А если сингловое окно сделать не дочерним, а обычным, то при потере фокуса оно вообще пропадает. Как можно от этого избавиться?

[Sm1Le]

Код напиши пожалуйста ....

[daunito]

Ворма создается так:

procedure TEditClientForm.DBLookupListBox3DblClick(Sender: TObject);
begin
 if EditContmanForm=nil then
  begin
   EditContmanForm:=TEditContmanForm.Create(self.GetParentComponent,
                                            ZReadOnlyQuery6id.Value);
   EditContmanForm.Visible:=true
  end
end;

Закрывается форма так:

procedure TEditContmanForm.Button2Click(Sender: TObject);
begin
if(MessageBox(self.Handle,'Сохранить внесенные изменения?','Подтвердите',MB_OKCANCEL)=IDOK) then
begin
 ZQuery1.ParamByName('ln').Value:=Edit1.Text;
 ZQuery1.ParamByName('fn').Value:=Edit2.Text;
 ZQuery1.ParamByName('mn').Value:=Edit3.Text;
 if DBLookupComboBox1.KeyValue<>0 then
    ZQuery1.ParamByName('d').Value:=DBLookupComboBox1.KeyValue
 else
    ZQuery1.ParamByName('d').Value:=Null;
 ZQuery1.ParamByName('mg_id').Value:=ContmanId;
 ZQuery1.ExecSQL;
 if EditClientForm<>nil then EditClientForm.ZReadOnlyQuery6.Refresh
end;
 EditContmanForm.Close;
end;

Если форма дочерняя то почему-то она не закрывается вообще! Если нормальная, то закрывается

13:46

И еще такой вопрос. При создании формы проверяется указатель, если он равен nil то форма создается, чтобы 2 такие формы одновременно не были открыты. Но почему-то при close указатель не обнуляется, зараза, а если прописать EditContmanForm:=nil в OnDestroy то вываливается ошибка Access violation

Намек насчет кнопки "Правка" понятен?
Читаем правила...

[pu4koff]

Кажется нужно обрабатывать у дочерней формы событие OnClose и там устанавливать значение Action. По-умолчанию они не то скрываются, не то сворачиваются. Я не помню уже, давно это было...

[daunito]

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

Кажется нужно обрабатывать у дочерней формы событие OnClose и там устанавливать значение Action. По-умолчанию они не то скрываются, не то сворачиваются. Я не помню уже, давно это было...

Да в том-то и дело, если форма sizable то она при close сворачивается, но у меня она singl. Я думаю из-за этого глюк. Вот как его обойти...

[pu4koff]

попробовал создать single дочернюю MDI форму:

with tform2.Create(self) do
begin
  Show;
end;

Проблем никаких не заметил.

ЗЫ. у формы дочерней при создании размеры не пересчитываются? А то ведь в MDI либо всё развёрнуто на всю форму главную, либо все формы "нормального" размера

[daunito]

Вообще писец. Докопался дальше. Даже если оставить в обработчике нажатия на кнопку ок только close, ошибка доступа. Если закрывать крестиком, то все в порядке. Может глюк делфи?

[slips]

Вобщем тебе нужно в OnClose написать
Action:=caFree;
И формы дочерние формы будут уничажаться

[Paul Hindenburg]

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

Вобщем тебе нужно в OnClose написать
Action:=caFree;
И формы дочерние формы будут уничажаться

не факт что они уничтожаются!!!!
я возился тут с этим вопросом
цитирую справку "caFree The form is closed and all allocated memory for the form is freed. " что в переводе "Форма закрыта и вся размещенная память для формы освобождена." е если проверить существование таким кодом:

if not assigned(form4) then
showmessage('Формы еще нет')
else
showmessage('Форма есть');

то узнаем что форма на самом деле существует.
вот и у меня вопрос. - Как уничтожить форму чтобы вновь создавалось одно окно

[Баламут]

Сообщение от Paul Hindenburg

if not assigned(form4) then
showmessage('Формы еще нет')
else
showmessage('Форма есть');

Такая проверка чистейшей воды рэндом. После вызова метода Free память объекта помечается как свободная и будет затерта при последующих операциях выделения памяти. Ну не может объект своим же методом очистить занимаемую собой память!