Как второй раз не открыть дочерное окно?

← →
fast2 (2006-08-08 17:48) [0]

Есть MDI приложение. По нажатию на определенном пункте меню, создается дочерное окно. Как сделать, чтоб при выборе этого же меню, дочерная форма не создавалась, а делалась активной?

← →
StriderMan © (2006-08-08 17:52) [1]

заведи в модуле формы переменную этой формы (вобщем делфи сам эту переменную всегда создает создает) и проставь начальное значение nil. В конструкторе формы проверяй эту переменную на nil, и если не nil, то в конструкторе делаешь Abort и активируешь нужную форму.

← →
Loginov Dmitry © (2006-08-08 17:55) [2]

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) [3]

Да. С переменной проще ;)

← →
StriderMan © (2006-08-08 18:05) [4]

> StriderMan © (08.08.06 17:52) [1]
> активируешь нужную форму.

в догонку:
нужная форма будет лежать в этой самой переменной.
соответственно ей говоришь Show, а потом в конструкторе Abort.

← →
fast2 (2006-08-08 18:07) [5]

Спасибо!

> а потом в конструкторе Abort.

Зачем? Конструктор ведь нигде не используется, кроме как в файле проекта, т.е. форма создается за время работы программы только 1 раз.

Как второй раз не открыть дочерное окно? Найти похожие ветки