如何在窗体的FormActivate中关闭本窗体？

Question

想在FormActivate事件中的某个判断语句中关闭本窗体，用了浑身解数，就是不行。请问除了放个TIMER一类的东西外，还能怎么关闭这个窗体？

Answer 1

为什么不行呢，
procedure TForm1.FormActivate(Sender: TObject);
begin
  Close;
end;
不就关了吗？估计是你另外代码的问题

Answer 2

不行的。
就算只有一句close()也没法关闭这个窗体。

Answer 3

  begin 
    messagedlg('将要关闭', mtInformation, [mbOK], 0); 
    PostMessage(self.handle, WM_CLOSE, 0, 0); 
    Screen.Cursor := crDefault; 
  end 

Answer 4

procedure TForm1.FormActivate(Sender: TObject);
begin
  close;
end;
怎么不可以阿，我刚试了，没有问题，
要不你试试
application.Terminate;
要是这个还不行的话，那就是你的其他代码问题