Question

Delphi如何实现打开Form然后ShowMessage即关闭？

我目的是要显示一个Form，立即ShowMessage显示一条信息，用户按确定后即关闭Form。
但无论在FormActivate、FormShow、FormCreate加入：
begin
ShowMessage('text');
Close;
end;
都无法实现Close关闭Form，请问该如何解决？

Answer 1

解释的什么跟什么啊 确实你想在FormActivate、FormShow、FormCreate里关闭窗体很不好实现 我最近也遇到这个问题 最后我换了个办法 你showmessage 后 用户也要点一下才能关闭 你可以要显示的窗体做个分页pagecontrol 窗体FormActivate处理你要做的事情 处理完转到另一个sheet 你可以把这个sheet作成象个showmessage一样的界面 这样不就实现了 用户最终是要点一下的

Answer 2

你这个form是不是MDI的子窗口？如果是的话，close是不能关闭的。
如果一定要close，在close事件中加入action:=cafree，这样才可以。

Answer 3

换个方式，你的这个form是某个过程显示出来的吧，在这个过程里，比如button1click里，
form2.show;之后，加上
form2.close;
而在form2的onActivate事件上加
showmessage('text');

解释一下，showmessage过程实际上导致窗口消息进入modal状态。