Найти 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]

>Сабж

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

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

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

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

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

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