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

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

← →
webpauk ©   (2008-06-17 11:00) [0]

Динамически создаю MDI-формы.
Как найти MDI, зная ClassName, WindowName, не прибегая к перебору MDIChildren главной формы?

---

← →
we   (2008-06-17 11:01) [1]

TForm(FindControl(mdihandle)).

---

← →
webpauk ©   (2008-06-17 11:01) [2]

TForm(FindControl(mdihandle))=nil ?!

---

← →
Игорь Шевченко ©   (2008-06-17 11:14) [3]

> не прибегая к перебору MDIChildren главной формы?


Это проще всего - перебрать

---

← →
Василий Жогарев ©   (2008-06-17 12:01) [4]

FindWindow() ?

---

← →
Василий Жогарев ©   (2008-06-17 12:05) [5]

> Игорь Шевченко ©   (17.06.08 11:14) [3]
>
> > не прибегая к перебору MDIChildren главной формы?
>
>
> Это проще всего - перебрать

Совершенно верно !

Вот код на выгрузку дочерних окон, но модифицировать можно...

var
 c, i: Integer;
begin
 c := MDIChildCount;
 if c > 0 then
   for i := 0  to c - 1 do
     MDIChildren[i].Free;
end;

---

← →
Игорь Шевченко ©   (2008-06-17 12:07) [6]

> но модифицировать можно...


И даже нужно.

 while ActiveMDIChild <> nil do
 begin
   ActiveMDIChild.Release;
   Application.ProcessMessages;
 end;

---

← →
MsGuns ©   (2008-06-17 12:54) [7]

>Сабж

Как почесать пятку, не прибегая к помощи рук, ног и посторонних предметов ?

---

← →
Василий Жогарев ©   (2008-06-17 13:10) [8]

> MsGuns ©   (17.06.08 12:54) [7]

Попросить кого нибудь... ?!

---

← →
Василий Жогарев ©   (2008-06-18 10:40) [9]

> Игорь Шевченко ©   (17.06.08 12:07) [6]
>
> > но модифицировать можно...
>
>
> И даже нужно.
>
>  while ActiveMDIChild <> nil do
>  begin
>    ActiveMDIChild.Release;
>    Application.ProcessMessages;
>  end;


Несовсем понятно Application.ProcessMessages зачем ?

---

← →
Игорь Шевченко ©   (2008-06-18 12:18) [10]

> Несовсем понятно Application.ProcessMessages зачем ?


Для завершения метода Release

---

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

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



Память: 0.47 MB
Время: 0.014 c