如何在一个窗体的OnShow事件中关闭当前窗体？(100分)

我用Close方法不管用

是可以的。建立两个窗体，如下：

//第一个窗体显示窗体 Form2，Show()/ShowModal() 随便一种
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
//Form2.Show();
Form2.ShowModal();
end;

//第二个窗体处理 OnShow 时的 Close;
//但必须在 OnHide 中 Close;
//其他方法我没有尝试。

procedure TForm2.FormShow(Sender: TObject);
begin
PostMessage(Handle, WM_CLOSE, 0, 0);
end;

procedure TForm2.FormHide(Sender: TObject);
begin
Close;
end;

在onShow中form1.close,我试了好使呀

向窗口发wm_close消息。

我试过了， 想当前Form发送WM_CLOSE消息可以关闭当前Form，
但在OnHide事件中使用Close方法不行。我给ddev加80，给Toylin
加20，谢谢两位。