
(*
 Delphi Object and Component Reference
# {bmc bm9.BMP} FormStyle example
This example ensures that the main form of the application is an MDI parent:
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
  if(FormStyle != fsMDIForm)
    	  FormStyle = fsMDIForm;
  if(FormStyle == fsMDIForm)
    	  Edit1->Text = "MDI form";
  else
    //This line never executes
    Edit1->Text = "Not an MDI form";
} 
