//---------------------------------------------------------------------------


void __fastcall TfrmMain::actSysUserMngExecute(TObject *Sender)
{
if(pCurrentForm!=NULL)
delete pCurrentForm;
frmUserManage=new TfrmUserManage(Application);
frmUserManage->iCurUser=iCurrentUserID;
frmUserManage->Parent=pnlMain;
sdMain->AddNestForm(this,frmUserManage);
frmUserManage->Show();
pCurrentForm=frmUserManage;

}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::actQueryExecute(TObject *Sender)
{
if(pCurrentForm!=NULL)
delete pCurrentForm;
//查询模块
TIniFile * f=new TIniFile(ExtractFilePath(Application->ExeName)+"config.ini");
AnsiString sQuery=f->ReadString("Application","url","");
delete f;
ShellExecute(Handle,NULL,sQuery.c_str(),NULL,NULL,SW_SHOWNORMAL);
}

第一段代码是开一个嵌入窗体的,类似的有多个.第二段代码打开一个链接.
pCurrentForm是一个TFORM指针.
两段代码都是菜单事件.
如果反复点击类似第一段的代码,没问题;如果点一,再点二,再点一,提示非法指针操作,何解?