Question

delphi中想要关闭窗体1时弹出窗体2，几秒后自动关闭窗体2，程序完毕

这是我的代码。。。执行时总是窗体2不能自动关闭。。
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Form1.Hide;
//Form1.Close;
Form2.ShowModal;
sleep(1000);
Form2.Close;
Application.Terminate;
end;

Answer 1

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Form1.Hide;
Form2.Show;
sleep(1000);
Form2.Close;
form1.close;
//Application.Terminate;
end;

追问

呃。。不行啊～这样的话，form2直接假死，label标签都不显示了