网络收藏

procedure   tpwdchangeform.formclosequery(sender:   tobject;  
      var   canclose:   boolean);  
  begin  
      if     messagedlg(您是否退出密码修改窗口？,mtconfirmation,[mbyes,mbno],0)=mryes  
        then  
              begin  
                  canclose:=true;  
              end  
        else   canclose:=false;  
  end;  
   
  我在密码修改后点确定键时就想直接关闭窗口,但又不想显示上面这段message  
  应该怎么做,我看了form.closequery()是一个函数,是不是能直接用他将canclose设为true啊,怎么设.我现在是用的form.close

推荐阅读

如果你想达到你的要求，那么保留这个事件的内容，但其中多添加一个全局变量，如closenotquery:boolean;  
   
  procedure   tpwdchangeform.formclosequery(sender:   tobject;  
      var   canclose:   boolean);  
  begin  
      if   closenotquery   then  
      begin  
          canclose:=true;  
          exit;  
      end;  
     
      if     messagedlg(您是否退出密码修改窗口？,mtconfirmation,[mbyes,mbno],0)=mryes  
        then  
              begin  
                  canclose:=true;  
              end  
        else   canclose:=false;  
  end;  
   
  closequery赋true值在在密码修改点确认按钮时完成

那在点关闭钮时写入下面代码就可以了  
  onclosequery就不用   写了,否则在所有form要关闭时提示信息就会出现:  
  if     messagedlg(您是否退出密码修改窗口？,mtconfirmation,[mbyes,mbno],0)=mryes  
        then  
                  close;