1
2
3
4
5
6
7
8
9
10
|
TForm* TfmMain::FormExist(AnsiString szCaption)
{
for
(
int
i=0; i<
this
->MDIChildCount; i++)
{
TForm *pForm =
this
->MDIChildren[i];
if
(pForm->Caption == szCaption)
return
pForm;
// 已存在窗体,返回该窗体
}
return
NULL;
// 不存在窗体,返回空值
}
|
1
|
|
1
|
使用方法:
|
1
2
3
4
5
6
7
8
9
10
11
|
void
__fastcall TfmMain::mnuRegClick(TObject *Sender)
{
// 门诊挂号管理
TForm *pForm = FormExist(
"门诊挂号管理"
);
// 如果已存在则激活,否则新建一个字窗体
if
(pForm)
pForm->SetFocus();
else
pForm =
new
TfmReg(Application);
pForm->Show();
}
|