Форум: "Начинающим";
Текущий архив: 2008.07.20;
Скачать: [xml.tar.bz2];
Вниз
Найти 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.07.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c
