MDI主窗体的关闭问题

Question

代码如下：
procedure Tfmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagebox(handle,‘是否关闭？',MB_YESNO)=ID_NO then
    canclose := false;
end;fmain为MDI主窗体 为什么上面代码无效啊？请高手赐教！

Answer 1

if messagebox(handle,'是否关闭？','提示',MB_YESNO)=IDNO then
    canclose := false;
试过，可以的呀。

Answer 2

if Application('是否关闭','提示',MB_YESNO)=IDNO then
    canclose:=false;也行。

Answer 3

if Application.MessageBox('是否关闭','提示',MB_YESNO)=IDNO then
    canclose:=false;

Answer 4

to cblearn () :你的 if messagebox(handle,‘是否关闭？',MB_YESNO)=ID_NO then
    canclose := false;
写错了，messagebox里的参数应该是(handle,'是否关闭？','提示',MB_YESNO)，你少写了'提示'。正确的应该是    if messagebox(handle,'是否关闭？','提示',MB_YESNO)=ID_NO then
    canclose := false;

Answer 5

正确写法是：
if MessageBox(Handle,'是否退出？','提示',MB_YESNO)=IDNO then
  CanClose:=False;但是点击"否"不能关闭，是因为没有设CanClose:=True;

Answer 6

if MessageBox(Handle,'是否退出？','提示',MB_YESNO)=IDyes then
  CanClose:=true;

Answer 7

Application.MessageBox('是否关闭','提示',MB_YESNO)=IDNO