Question

如何某一Form是否已经运行

Answer 1

新建一个函数：
bool __fastcall TfmMain::OpenForm(TForm *WForm)
{
if( WForm==NULL) return false;
bool FormExist=false;
for(int i=0;i<Screen->FormCount;i++)
{
if( Screen->Forms[i]->ClassType()==WForm->ClassType())
{
FormExist=true;
break;
}
}
if( !FormExist) return false;
if( WForm->WindowState==wsMinimized)
ShowWindow(WForm->Handle,SW_SHOWNORMAL);
else
ShowWindow(WForm->Handle,SW_SHOWNA);
if( !WForm->Visible ) WForm->Visible=true;
WForm->BringToFront();
WForm->SetFocus();
return true;
}
然后再这样：
void __fastcall TfmMain::btnInClick(TObject *Sender)
{
if( OpenForm(fmIn)) return;
fmIn = new TfmIn(Application);
}