如何在form的onshow事件里关闭该form?

[8341]

在onshow事件里，发现不符合要求，不想让它显示了，可是使用close不行啊，各位有何良策？

[luoweicaisd]

先判断是否可create,再create啊，在onshow中是关不了的，在oncreate可以

[danyanpi]

既然不符合要求，为什么还要显示它？可以不开启该窗口呀！

[shsandbeah]

PostMessage(self.Handle,WM_CLOSE,0,0);
应该没问题，在你的机器上试试。

[沧-海-桑-田]

OnShow事件中是不能关闭的

[shsandbeah]

PostMessage(self.Handle,WM_CLOSE,0,0);
应该没问题，在你的机器上试试。
在我机器上是没问题的，就写在OnShow事件中

[dragonfox]

通常你在OnCreate或Onshow里关闭窗体
会出保护性错误，这里用发消息的方法

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

---Delphi之未经证实的葵花宝典version 2.1

[tata1]

在onshow里关闭Form不太好。

newform := TNewForm.Create(Self);
try
if {出错} then
raise Exception.Create('xx错误');
newform.Show;
except
newform.Free;
end;