在线等待,立即给分!

Question

请问在OnCreate中怎样写,才能销毁正在创建的窗口.
procedure TForm1.FormCreate(Sender: TObject);
begin
  if(not OK)
  begin
     ...//销毁窗口
  end;
end;

Answer 1

通常你在OnCreate或Onshow里关闭窗体
会出保护性错误，这里用发消息的方法  begin 
    messagedlg('将要关闭', mtInformation, [mbOK], 0); 
    PostMessage(self.handle, WM_CLOSE, 0, 0); 
    Screen.Cursor := crDefault; 
  end 

Answer 2

感觉这迟早是个BUG
何不换一种方式，为什么不先判断一下是否该创建再继续呢…………

Answer 3

非常同意hwkknd(白开水)的见解

Answer 4

若是你想让窗口出现之后再消失有个笨办法，可以在FORM中加个记时器
设个时间，在记时器事件中关闭窗口，比较保险