Глюк с MDI

← →
GIL © (2002-10-10 04:01) [0]

Есть MDI-приложение, глюк заключается в том, что если закрывается хотябы одна из нескольких дочерних форм, то из главной формы невозможно обратиться к активной дочерней.
Дочерняя форма вызывается с помощью вот такой команды: Application.CreateForm(Tform6,Form6);
и на закрытие стоит: Action:=caFree
Помогите разобраться!

← →
PVOzerski © (2002-10-10 04:34) [1]

Пожалуйста, внятнее формулируйте вопрос. Что такое "обратиться к активной
дочерней"? Application.CreateForm(Tform6,Form6); - это создание окна формы, а не вызов,
обычно таким способом форма создается в .dpr-файле. Может, в Вашем случае уместнее
Form6:=tForm6.Create(Application);? А может, Вы ухитряетесь последовательно присваивать
одной и той же переменной Form6 несколько объектов, не уничтожая предшествующие? При закрытии
такого дочернего окна никто автоматически не присвоит переменной Form6 значение ближайшего
оставшегося окна - но на то есть метод родительского окна ActiveMDIChild. А можно завести и массив
array of tForm6 - никто не обязывает присваивать результат выполнения конструктора tForm6.Create
именно переменной с именем Form6.

← →
GIL © (2002-10-10 04:56) [2]

Создаю форм именно так, как написал, а обращаюсь: Form6.RichEdit1. ..., таким образом создается несколько форм, массив заводить не хочется, кстати так, как я сделал описывается в нескольких примерах работы с MDI, и нельзя ли поподробнее про ActiveMDIChild, параметры, класс, родитель, если есть, я с ней еще не сталкивался, заранее спасибо!!

← →
PVOzerski © (2002-10-10 05:36) [3]

Из хелпа D3:
TCustomForm.ActiveMDIChild
ActiveMDIChild is the MDI child that has focus.

property ActiveMDIChild: TForm;

Description

Use ActiveMDIChild to get the MDI child that has focus.
If the form is not an MDI parent (that is, if the FormStyle property of the form is not fsMDIForm), ActiveMDIChild returns nil.

Короче говоря, если, положим, MDI-окно (родитель) - это Form1, то
if assigned(Form1.ActiveMDIChild) and(Form1.ActiveMDIChild is tForm6) then
(Form1.ActiveMDIChild as tForm6).RichEdit1....

> таким образом создается несколько форм

Помоемому проще уж завести массив имени TForm6 ;))))
Серьезно

Желаю успехов

Бальшое спасибо, сегодня на работе попробую, надеюсь, что проблема исчезнет

Глюк с MDI Найти похожие ветки