Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Найти MDI [D7, XP]

webpauk © (2008-06-17 11:00:00)
Динамически создаю MDI-формы.
Как найти MDI, зная ClassName, WindowName, не прибегая к перебору MDIChildren главной формы?

Игорь Шевченко (2008-06-18 12:18:00) [1]

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

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

Василий Жогарев (2008-06-18 10:40:00) [2]

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

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

Василий Жогарев (2008-06-17 13:10:00) [3]

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

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

MsGuns (2008-06-17 12:54:00) [4]
>Сабж

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

Игорь Шевченко (2008-06-17 12:07:00) [5]

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

И даже нужно.

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

Василий Жогарев (2008-06-17 12:05:00) [6]

> Игорь Шевченко © (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:01:00) [7]
FindWindow()?

Игорь Шевченко (2008-06-17 11:14:00) [8]

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

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

we (2008-06-17 11:01:00) [9]
TForm(FindControl(mdihandle)).

webpauk (2008-06-17 11:01:00) [10]
TForm(FindControl(mdihandle))=nil?!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »