Скачать: CL | DM;

Проблемы с 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 вещи очень разные, не путай.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c