Проблемы с MDI формой

← →
Shc (2004-07-28 12:51) [0]

Имеется материнская форма. Из нее динамически вызывается другая МДИ форма.
Как создать дочернее окно на второй форме (у меня оно всегда создается на первой).
Вот пример моего кода:
procedure TMDIForm1.CreateSubMDI;
begin
MDIForm2:= TMDIForm2.Create(Application);
MDIForm2.visible:=true;
end;

---------------------------------------
Procedure TMDIForm2.CreateChild(sender:TObject);
var Child:TChildForm;
begin
child:=TChildForm.Create(self);
child.parent:=MDIForm2;
end;

← →
Игорь Шевченко © (2004-07-28 13:12) [1]

> Как создать дочернее окно на второй форме (у меня оно всегда
> создается на первой).

Никак, скорее всего. Или очень много кода писать.

Дочерняя форма создается как дочернее окно Application.MainForm.ClientHandle

← →
shc (2004-07-28 13:27) [2]

Очень интерестный подход. А обойти это как-то можно?

← →
Игорь Шевченко © (2004-07-28 13:33) [3]

> Очень интерестный подход.

Угу, интереснее некуда. RTFS Forms.pas

> А обойти это как-то можно?

Можно-то можно, способ, как обойти можно извлечь из того же вдумчивого чтения forms.pas

А нужно ?

← →
Shc (2004-07-28 13:44) [4]

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

← →
shc (2004-07-28 14:57) [5]

Я так понимаю, что концепция родительско-дочерних форм такого варианта не предусматривает.
По+тому вопрос снимается.

← →
s999 (2004-07-28 16:56) [6]

Все это решается одной строкой, напиши:

child.ParentWindow := MDIForm2.Handle;

Просто Parent и ParentWindow вещи очень разные, не путай.

Проблемы с MDI формой Найти похожие ветки