BCB判断FORM是否存在

Application->FindComponent("Form2")

如果开始创建了FORM2则一直找到,知道程序停止运行 

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TForm2*p=new TForm2(this);
   p->Show();
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{

if( Application->FindComponent("Form2") )

{
 ShowMessage("窗体已经存在并打开");
 }
else
{
TForm2*q = new TForm2(NULL);
 q->Show();
 }
}

MDI
  TForm *pForm = FormExist("进货单");
    // 如果已存在则激活，否则新建一个窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmPurchaseManage(Application);
    pForm->Show();