MDI приложение

[Arsgun]

Доброго времени суток!
Кто знает,как в MDI приложении закрыть активную дочернюю форму?
Заранее спасибо!

[1nurik1]

Все формы, которые являются дочерними, скрываешь.
Для этого в пункте меню Project-Options на вкладке
Forms все дочерние формы переносишь из auto-creates form в
available forms.
Вызов дочерней формы:
form2:=tform2.create(application);
form2.show;
Чтоб закрывалась, в событии OnClose у формы написать :
action:=cafree;

[Arsgun]

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

[1nurik1]

Я сделал так создал Unit м там описал глобальные переменные пример:
unit perem;
interface
var
frm2:byte; //справочник продукции
frm3:byte; //справочник заказчиков
frm4:byte; //заказы
frm5:byte; //приход продукции
frm6:byte; //изменение цены
frm7:byte; //разработчик
frm8:byte; //о программе
frm9:byte; //настройки
implementation
end.
Потом MDI форме в
procedure TForm1.FormCreate(Sender: TObject);
begin
frm2:=1;
frm3:=1;
frm4:=1;
frm5:=1;
frm6:=1;
frm7:=1;
frm8:=1;
frm9:=1;
end;
Затем при открытии контролировал чтобы форма не открывалась 2 раза
procedure TForm1.N6Click(Sender: TObject);
begin
if frm2=1 then begin
form2:=tform2.Create(application);
form2.Show;
frm2:=2;
end;
end;
Дальше в кнопке "Закрыть всё"
procedure TForm1.N26Click(Sender: TObject);
begin
if frm2=2 then form2.Close;
if frm3=2 then form3.Close;
if frm4=2 then form4.Close;
if frm5=2 then form5.Close;
if frm6=2 then form6.Close;
if frm7=2 then form7.Close;
if frm8=2 then form8.Close;
if frm9=2 then form9.Close;
end;

Незачто!

[pu4koff]

MainForm.ActiveMDIChild.Close;