自动关闭窗体

Question

procedure TfrmCreateMovie.FormCreate(Sender: TObject);
begin
  createHtml();  //建立 html 文档  Close;
end;上面代码中，close; 无法关闭窗体，程序假死装状态...我想让窗体建立后，执行一下 createHtml();  过程，然后关闭窗体。

Answer 1

halt 是强制关闭程序，楼上的 错误理解我的意思了
我的意思是 只关闭 当前窗体

Answer 2

halt 是强制关闭程序，楼上的 错误理解我的意思了
我的意思是 只关闭 当前窗体

Answer 3

在SHOW裏面寫是可翠的; close;
不要在 Create 裏面寫，那肯定不行。

Answer 4

procedure TfrmCreateMovie.FormShow(Sender: TObject);
begin
  Close;
end;不行呀，页面没有关闭

Answer 5

你的是MDI窗体的话，在OnClose事件中写
Action := caFree;

Answer 6

刚试过在OnShow事件中是可以的：
procedure TForm1.FormShow(Sender: TObject);
begin
  Close;
end;    

Answer 7

CREATE是创建，你在里面写肯定不对。在ONSHOW里面行的。

Answer 8

procedure TfrmCreateMovie.FormShow(Sender: TObject);
begin
  Close;
end;
procedure TfrmCreateMovie.FormActivate(Sender: TObject);begin
  Close;
end;
以上 两个 事件，都不能 关闭窗体...

Answer 9

创建窗体的过程中销毁窗体，这是个逻辑性错误呀。
crate之后你可以随便关闭，注意窗体创建的过程create-->show-->active-->resize-->paint。close其实是向窗体发送了一个关闭的消息。用这句可以实现你的要求： 
postmessage(handle,wm_close,0,0);

Answer 10

建议用sendmessage(frmCreateMovie.handle,wm_close,0,0);postmessage只是把消息传递给应用程序的消息队列，还得排队，而且还要看应用程序是否在空闲状态，这是异步消息；用sendmessage则是同步消息，直接给指定窗体发消息

Answer 11

直接在调用这个窗体ONSHOW方法的地方写不就好了，干嘛要在在ONCREATE里写，自寻烦恼...