MDIChild

← →
Viktor Tsoy (2003-04-18 02:08) [0]

Помогите мастера. Создаю форму, ставлю
FormStyle := fsMDIForm;
добавляю кнопку, вторую форму
по нажатию на кнопку вызываю вторую форму
Form2.FormStyle := fsMDIChild;
Form2.Show;
Затем закрываю Child и обрабатываю OnClose
Action := caFree;
(пока все работает)
вызываю еще раз и выскакивает ошибка
я понимаю что необходимо Action := caNone или caMinimize
но где не знаю.

← →
Deadlock (2003-04-18 03:43) [1]

Action := caFree; уничтожает форму...а ты ее опять вызываешь...
если хочешь просто свернуть, тогда Action := caMinimize

← →
Viktor Tsoy (2003-04-18 05:09) [2]

Так что, мне ее просто спрятать (типа caHide)?

Action := caFree; Уничтожает форму, но оставляет
идентификатор.
Пиши
Action := caFree; Form2:=nil;

Теперь нужно чуть-чуть подшаманить вызов окна.
if not assigned (Form2) then Application.CreateForm(TForm2, Form2); Form2.Show;

Теперь строку Application.CreateForm(TForm2, Form2); можно выкинуть из кода проекта - форма будет создаваться только когда нужна.

Если же тебе нужно прятать MDI окно, без уничтожения, то это немного другая история :)

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