窗体销毁时产生的问题，求助

[jxncyjq]

void __fastcall TmfrmBuiness::FormShow(TObject *Sender)
{int Status,ExitFlag=0;
TLogin *Login=new TLogin(NULL);

do{
Status=Login->ShowModal();
switch(Status)
{
case mrOk:
{ShowMessage("Select OK");
ExitFlag=1;
}break;
case mrCancel:
{ShowMessage("Select Cancel");
ExitFlag=2;
}break;
case mrRetry:
{ShowMessage("Select Retry");
ExitFlag=0;
}break;
}
}while(!ExitFlag);
if(ExitFlag==2)
{Login->Close();
delete Login;
Close();
}

delete Login;
}
在窗体关闭的时候说
cannot change visible in onshow or onhide

何解？

[mmking33]

在onshow事件中不能改变窗体的visible属性，你可以把它放到TmfrmBuiness构造函数里试试

[samchoy]

改这样试试

if(ExitFlag==2)
{delete Login;
Close();
}
else
delete Login;

[qin_wei]

Close();
改成
::PostMessage(Handle,WM_CLOSE,0,0);
但你在formshow里做这样的处理会发现窗体先闪了一下才关闭，最后在formcreate里用登陆窗口。

[qin_wei]

最好在formcreate里用登陆窗口。

[yesry]

FormShow()的时候不能Close();

[3996906]

不能在OnShow和OnHide事件里面改变窗体的可见性


换地方写代码吧

[yesry]

按照上述逻辑来讲，Close()换成Application->Terminate();比较实际。

[Cstarter]

我记得Application->Terminate();应该是这样执行的:
::PostMessage(Handle,WM_CLOSE,0,0);
PostQuitMessage(0);吧.
前一句关闭Handle相关的窗口,后一句退出消息循环.

[samchoy]

不需要这句:Login->Close();
因为窗口ShowModal()返回后, 窗口已经关闭

[jxncyjq]

我开始没有用这句就在报这个错呀，所以我后来才加上了这一句。

[jxncyjq]

int Status,ExitFlag=0;
TLogin *Login=new TLogin(NULL);

do{
Status=Login->ShowModal();
switch(Status)
{
case mrOk:
{ShowMessage("Select OK");
ExitFlag=1;
}break;
case mrCancel:
{ShowMessage("Select Cancel");
ExitFlag=2;
}break;
case mrRetry:
{ShowMessage("Select Retry");
ExitFlag=0;
}break;
}
}while(!ExitFlag);
if(ExitFlag==2)
{delete Login;
Close();
}

delete Login;

[jxncyjq]

改成了以前的程序后同样是报错的，有人帮忙解答一下吗？