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

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

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

---

← →
Леприкон ©   (2004-04-19 13:43) [12]

> 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).

---

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

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



Память: 0.48 MB
Время: 0.03 c