как переделать приложение в Mdi

в "главной" стартовой форме установи стиль формы fsMDIForm. В остальных fsMDIChild.В свойствах проекта перевиди их с Auto-create forms в Available forms.Для удобства в материнской форме
поставь меню.И по нужному событию создавай свои
Child формы:
void __fastcall TMainForm::N111Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm1), &Form1);
}
когда будешь закрывать "ребенка"
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}

MerlinWind
!!! Спасибо огромное, все получилось!!!
Вот только я сразу кнопки из главной формы не убрала, довольно забавный эффект получился :)
Еще раз спасибо

Получается такая штука, если я создаю несколько дочерних окон для одной и той же формы одновременно, то первый раз при нажатии на кнопку ок, все работает форма закрывается без проблем, а во второй форме возникает ошибка


void __fastcall TfrmProvince::btnOkClick(TObject *Sender)
{
int q;
try {
qrProvince->ApplyUpdates();
dmAdress->trAdress->CommitRetaining();
frmProvince->Close();
} catch (Exception &E) {
dmAdress->trAdress->RollbackRetaining();
q = MessageDlg("?", mtError, mbOKCancel,0);//const TModalResult AModalResult
if (q == mrOk) {
frmProvince->Close();
}
}
}

события формы
void __fastcall TfrmProvince::FormClose(TObject *Sender,
TCloseAction &Action)
{
Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TfrmProvince::FormCloseQuery(TObject *Sender,
bool &CanClose)
{
CanClose = true;
}

Но если закрыть форму нажатием на крестик, такого не происходит, Хотя ошибка выдается именно в строке frmProvince->Close();

Спасибо, о причине я догадывадась, ток не знала как ее обойти.. Разницу я чувствую немного
Даже не догадывалась что можно использовать Close сам по себе...
Спасибо...

А как обращатся тогда к методам формы "в которой описан метод" , если удалить переменную? Или этого делать ваще не надо?