AI摘要
文章介绍了在Delphi中，如何在窗体的FormShow事件中通过消息传递的方法关闭一个Modal窗口。当条件不满足时，使用showmessage显示消息，然后通过PostMessage函数发送自定义消息WM_USER，触发test方法关闭窗口。这种方法可以避免showmessage触发的modal事件导致窗口无法关闭的问题。
文章介绍了在Delphi中，如何在窗体的FormShow事件中通过消息传递的方法
在窗体FormShow事件中进行条件判断，如果不符合条件时，showmessage显示消息，然后自动关闭窗口。
showmessage会触发一个modal事件，点确定后，再执行close是无法关闭窗口的，只能通过其它办法才行。
下面是一种通过消息传递的方法，可完美解决在formshow事件中关闭窗口。
private
{ Private declarations }
//定义一个用户消息
procedure test(var msg: TMessage);message WM_USER;
procedure TForm1.FormShow(Sender: TObject);
begin
//发送消息
PostMessage(handle,WM_USER,0,0);
end;
procedure TForm1.test(var msg: TMessage);
begin
//在消息中关闭窗口
close;
end;