窗体默认最大化:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Position=poDesktopCenter;
WindowState=wsMaximized;
Align=alClient;
}
检查窗体是否已存在:
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; // 不存在窗体,返回空值
void __fastcall TfmMain::mnuGoodManageClick(TObject *Sender)
{
// 显示商品信息维护窗体
TForm *pForm = FormExist("商品信息维护");
// 如果已存在则激活,否则新建一个窗体
if(pForm)
pForm->SetFocus();
else
pForm = new TfmGoodManage(Application);
pForm->Show();
}