高高手的问题：如何关闭窗体

在窗体的CREATE中关闭窗体，该窗体是动态创建的

解决方案 »

  1.   

    我靠！
    FROM1中有一个按钮，CLICK则动态创建FORM2，在form2.create中我要判断用户有没有打开该窗体
    的权限，若是没有则关闭，可是关闭不了，SO，so,HELP!
      

  2.   

    這是Hubdog發表的，我隻是借來用一下：原文如下：通常你在OnCreate或Onshow里关闭窗体
    会出保护性错误，这里用发消息的方法  begin 
        messagedlg('将要关闭', mtInformation, [mbOK], 0); 
        PostMessage(self.handle, WM_CLOSE, 0, 0); 
        Screen.Cursor := crDefault; 
      end 
      

  3.   

    这样在ONPaint关闭
    procedure TForm1.FormPaint(Sender: TObject);
    begin
     close;
    end;
      

  4.   

    楼上老兄说得当然可以。
    问题是我不能在每个创建该窗体的地方都判断，在CREATE中判断可以省去很多
      

  5.   

    不要在Create事件中关，先传个参数，在onshow或onpaint里关掉
      

  6.   

    那你为什么不在form1的按钮的click事件中先判断权限再创建from2呢
      

  7.   

    在formclose中写
    action:=cafree