中科新闻网手机发微博怎么换行:关于delphi的代码问题。比较弱，请各位帮帮我，谢谢！
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 23:29:38
请大家看看我的代码哪里有错:
MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',
MB_YESNO+MB_ICONQUESTION);
case MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',
MB_YESNO+MB_ICONQUESTION) of
IDOK:close;
IDNO:ShowMessage('返回!');
end;
运行时,点击弹出的对话框,点'是',却不关闭.而且要点两下对话框才消失。
MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',
MB_YESNO+MB_ICONQUESTION);
case MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',
MB_YESNO+MB_ICONQUESTION) of
IDOK:close;
IDNO:ShowMessage('返回!');
end;
运行时,点击弹出的对话框,点'是',却不关闭.而且要点两下对话框才消失。
你的MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',
MB_YESNO+MB_ICONQUESTION);
调用了2 次，当然会点两次，才会两个都关闭，虽然你看上去是一个。你可以把case前面的那个去掉就可以了，或者为了清晰起见，定义一个整形变量a，
a:=MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',
MB_YESNO+MB_ICONQUESTION);
case a of……即可。
楼上说的对
随便说一下
你的Case 中应该是：
IDYSE:close;
IDNO: