1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| void __fastcall TFM::CreateMDIChild(String Name)
{
TMDIChild *Child;
//--- create a new MDI child window ----
Child = new TMDIChild(Application);
Child->Caption = Name;
if (FileExists (Name))
Child->M1->Lines->LoadFromFile(Name);
Child->Tag=MDIChildCount ;
TIniFile *ini = new TIniFile("try" + IntToStr(MDIChildCount) + ".ini");
if (FileExists ("try" + IntToStr(MDIChildCount) + ".ini")) {}
else
{
ini->WriteString("INFO", "Board",IntToStr(MDIChildCount));
ini->WriteString("Bouton 1", "0","");
}
delete ini;
} |