[SAWaGE]

Подскажите кто-нибудь: как сделать чтобы в дочернем окне вызывалось другое окно?

[xchrom]

ну собственно так же как и любое дочернее, либо create (если не создано) либо BringToFront (если просто перекрыто)

[SAWaGE]

В смысле, если допустим что дочернее окно - Name1, а дочернее ему - Name2 то делается так:

Код:

procedure TFormChild.Button1Click(Sender: TObject);
begin
   ChildForm2 := TChildForm2.Create(Owner);
end;

?

[xchrom]

э-э-э, дочернее окно дочернего чтоли???
по моему MDI интерфейс немного не так работает: 1 главное, остальные дочерние, либо диалоговые. Все дочерние должны принадлежать главной, а вот диалоговые той форме которая вызвала или главной.

[SAWaGE]

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

[xchrom]

сделай форму для ввода диалоговую (но не MDIChild!!!), вызывай модально и после закрытия обрабатывай введенное

вот такой вызов в дочерней форме

Код:

  if fmInput.ShowModal = mrOK then собираем что там навводили   

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

[SAWaGE]

Что то не получается .
Все работает до момента вызова последней формы. Может делаю не то:
у формы в пропертях BorderStyle выставил - bsDialog,
на дочерней форме батончику код - FormAdd.Show(либо ShowModal);

[xchrom]

а что выдает то, ошибку? или просто ничего не происходит?

[SAWaGE]

Ошибку -- Project.exe raised exeption class EAccessViolation и все такое...

[xchrom]

ну а ты форму то создаешь перед вызовом?
проверяй на nil fmInput перед вызовом Show(Modal).
Если форма у тебя автоматом не создаеться, то перед вызовом создавай, а после отработки ибивай.

[SAWaGE]

Простите, nil fmInput -- это как?

[s0Creator]

Код:

procedure TMDIChild.btInputClick(Sender: TObject);
var
  FormAdd: TFormAdd;
begin
  FormAdd:= TFormAdd.Create(Self);
  try
    if FormAdd.ShowModal() = mrOk then
    begin
      Memo1.Lines.Add(FormAdd.edAdedString.Text);
    end;
  finally
    FormAdd.Free;
  end;

end;

MdiInput.zip

[SAWaGE]

Благодарствую s0Creator!

[SAWaGE]

Есть еще вопрос: как сделать, чтобы уже открытое дочернее окно не запускалось второй раз?

[s0Creator]

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

Есть еще вопрос: как сделать, чтобы уже открытое дочернее окно не запускалось второй раз?

А зачем тогда вообще MDI?

но если очень нужно то выход такой - отслеживай открытие и закрытие дочернего окна и не открывай если уже открыто
создается и открывается дочернее только по твоей команде