MDIchild

← →
xman (2004-04-19 12:29) [0]

Как узнать созданно ли окно MDIchild? Только не по загаловку окна.

← →
xman (2004-04-19 12:41) [1]

неужели с окнами MDIchild никто не работает

← →
ЮЮ © (2004-04-19 12:47) [2]

Работают. Но не понимают твой вопрос, т.к., вообще-то создано аж TCustomForm.MDIChildCount MDIchild форм ивсе они сидят в TCustomForm.MDIChildren

← →
xman (2004-04-19 12:50) [3]

Я делаю так
создаю форму потом называю ее (name=Fnew)
создаю переменную new:fnew;
new:=fnew.create(application);

← →
ЮЮ © (2004-04-19 12:58) [4]

Ну и ищи её среди MDIChildren. Никто ведь немешает создать несколько форм одного класса.

← →
xman (2004-04-19 13:03) [5]

за что мне цеплятся для поиска?

← →
Игорь Шевченко © (2004-04-19 13:04) [6]

> за что мне цеплятся для поиска?

За Application.Mainform.MDIChildren

← →
xman (2004-04-19 13:10) [7]

>Application.Mainform.MDIChildren
А как мне узнать какой у него индекс ? ВОТ В ЧЕМ ВОПРОС
может есть какая то функция где обратное значение - его индекс

← →
Amoeba © (2004-04-19 13:32) [8]

А чем не нравится для для уникальной идентификации окна св-во Tag, например?

← →
xman (2004-04-19 13:38) [9]

Ну ты выдал, TAG`и во всех окнах = 0

← →
Amoeba © (2004-04-19 13:41) [10]

> TAG`и во всех окнах = 0

По умолдчанию - 0. А ты его изменяй при создании окна.

← →
Плохиш (2004-04-19 13:42) [11]

> xman (19.04.04 13:38) [9]
> Ну ты выдал, TAG`и во всех окнах = 0

И кто мешает установить тэги в программе?

> xman (19.04.04 13:38) [9]

0 пока ты его сам не изменишь когда создаёшь форму.

← →
xman (2004-04-19 13:50) [13]

Выдает ошибку при проверке TAG`ов еще не созданного окна

← →
Mim1 (2004-04-19 14:49) [14]

Зачем изваращения с тагами.
Определить создано ли окно пробудавшить в цикле по mdichild окнам.

var f:boolean; ... f := false; with application.mainform do for i:= 0 to mdichildcount-1 do if mdichild[i] is TMyForm then begin f := true; break; end; if not f then application.createform(TMyForm,Myform);

Можно так же вопользоваться переменной MyForm которая определяется методом созндания окна createform. Однако надо не забывать ее сбрасывать при разрушении окна MyForm := nil; (в ondestroy).

MDIchild Найти похожие ветки