| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как второй раз не открыть дочерное окно? [D7, XP]
fast2 © (2006-08-08 17:48:00)Есть MDI приложение. По нажатию на определенном пункте меню, создается дочерное окно. Как сделать, чтоб при выборе этого же меню, дочерная форма не создавалась, а делалась активной?
Loginov Dmitry (2006-08-08 18:41:00) [1]> а потом в конструкторе Abort.
Зачем? Конструктор ведь нигде не используется, кроме как в файле проекта, т.е. форма создается за время работы программы только 1 раз.
fast2 (2006-08-08 18:07:00) [2]Спасибо!
StriderMan (2006-08-08 18:05:00) [3]
> StriderMan © (08.08.06 17:52) [1]
> активируешь нужную форму.
в догонку:
нужная форма будет лежать в этой самой переменной.
соответственно ей говоришь Show, а потом в конструкторе Abort.
Loginov Dmitry (2006-08-08 17:55:00) [4]
IsFind := False;
for I := MDIChildCount - 1 downto 0 do
if MDIChildren[I] is TForm2 then
begin
TForm2(MDIChildren[I]).Show; {Или еще что - то :) }
IsFind := True;
Break;
end;
if not IsFind then TForm2.Create(Application);
Loginov Dmitry (2006-08-08 17:55:00) [5]Да. С переменной проще ;)
StriderMan (2006-08-08 17:52:00) [6]заведи в модуле формы переменную этой формы (вобщем делфи сам эту переменную всегда создает создает) и проставь начальное значение nil. В конструкторе формы проверяй эту переменную на nil, и если не nil, то в конструкторе делаешь Abort и активируешь нужную форму.
| |
