简单问题！

[bit_hj]

我的程序在FormCloseQuery时间中这样写的
if(MessageDlg("您确定要退出吗？",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
frm_Main->Close();

但不知为什么按yes没反应，按no却可以退出，不知道为什么。
还有就是我怎样可以按no直接关闭对话框，不做任何处理，按yes关闭程序。
谢谢！

[hnwlk]

应改为：
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(MessageDlg("您确定要退出吗？",mtConfirmation,TMsgDlgButtons() <<mbYes<<mbNo,0)==mrYes)
{
CanClose = true;
}
else
{
CanClose = false;
}
}

[hnwlk]

补充：TForm1对应该为你程序中的frm_Main

[cscer]

if(MessageDlg("您确定要退出吗？",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrNo)
{
CanClose = false;
}

[痞子酷]

5555555555555
if(MessageDlg("您确定要退出吗？",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
ShowMessage("mrYes");
else
ShowMessage("mrNo");
没有问题亚：）

[cupidvenus]

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
CanClose = false;
if(MessageDlg("您确定要退出吗？",mtConfirmation,TMsgDlgButtons() <<mbYes<<mbNo,0)==mrYes)
{
CanClose = true;
}
}

[chpeng]

同意 hnwlk() 的