如何关闭Form呢？

Close;
或
Self.close; 

解决方案 »

  1.   

    窗体为form1
    close;
    form1.free;
      

  2.   

    在 form 的onclos事件中写代码：action:=cafree;
    然后用close就可以了！
      

  3.   

    不行的提示错误为 ： Cannot change Visible in OnShow or OnHide
      

  4.   

    procedure TForm_xsfwxx.weihu_reset(pd : Integer)过程中传递一个form的参数，该为
         procedure TForm_xsfwxx.weihu_reset(pd : Integer; a_form: Tform)然后在你想关闭的地方用: a_form.close;
      

  5.   

    要在close  中加上
    action:=cafree;
    form.release;
    form:=nil;
      

  6.   

    不要把过程procedure TForm_xsfwxx.weihu_reset(pd : Integer)定义为Tform_xsfwxx的，
    该为 procedure weihu_reset(pd : Integer; a_form: Tform; a_query: TQuery);
      

  7.   

    用SendMessage(Handle,WM_CLOSE,0,0)向窗口发送关闭消息就可以