如何判断窗体是否存在
狗戈 2007-03-22 09:00:12 TForm* TFormMain::FormExist(AnsiString szCaption)
{
for(int i=0;i<this->MDIChildcount;i++)
{
TForm *pfm=this->MDIChildren[i];
if(pfm->Caption==szCaption)
return pfm;
}
return NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::aa1Click(TObject *Sender)
{
TForm *prm=FormExist("Form2");
if(pfm)
pfm->SetFocus();
else pfm=new TForm2(Application);
pfm->Show();
}
执行时出错,请问是哪儿出了问题?