void __fastcall TForm1::Fermer1Click(TObject *Sender)
{
if(ActiveMDIChild != NULL) //au cas où... bien que...
{
ChildCanClose = true;
if(ActiveMDIChild->ClassNameIs("TForm2")) Nouveau1->Enabled = true;
if(ActiveMDIChild->ClassNameIs("TForm3")) Nouveau2->Enabled = true;
ActiveMDIChild->Close();
ChildCanClose = false;
//Pour que ActiveMDIChild soit actualisé (en tout cas pour mon BCB3 Pro)
Application->ProcessMessages();
}
//Donc à partir d'ici je peux tester
if(ActiveMDIChild == NULL) Fermer1->Enabled = false;
} |