!!!怎样将一个窗口打开后，又自动将其关闭！！！

Question

2)打开：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
2)自动关闭
在窗口2中放一个TTimer控件,并设Interval属性为1000。在OnTimer里写上：
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Close
end;//一秒钟后自动关闭

Answer 1

var
  f2: TForm2;
begin
  f2 := TForm2.Create(Self);
  f2.Show;
  f2.Free;
end;
这样的窗体只是闪一下就没有了。

Answer 2

怎么有问题，报告
cannot change visible in onshow or onhide
还有就是我如果用ShowModal就没用了，怎么办呢

Answer 3

Uses
  unit2;...procedure TForm1.Form(Sender: TObject);
begin
  Form2 := TForm2.Create(selft);
  Form2.Show;
end;
procedure TForm1.Form(Sender: TObject);
begin
  Form2.Close;
end;

Answer 4

procedure TForm1.Form(Sender: TObject)
是什么东东，在哪里有，
怎么没见过

Answer 5

大哥 你看看你的程序写到了哪一事件下 还有form你都不知道为何物 你怎么写程序啊？

Answer 6

是呀，
我只见到FormShow，FormActivate，FormCreate...
就没见到只有Form的事件

Answer 7

你的show 或 hide 一定是写到 formshow 或 formactivate 中了

Answer 8

本来就 没有form 事件啊

Answer 9

procedure TForm1.Button1Click(Sender: TObject);
var
m:Tform;
brgin
try
m:=form1.create(self);
form1.show;
finally
form1.free;
end;

Answer 10

TO: hawkwyz() 
===========================================
怎么有问题，报告
cannot change visible in onshow or onhide
还有就是我如果用ShowModal就没用了，怎么办呢
===========================================
出现这个问题一是该Form不能是MDICHILD类型，
另外该FORM的visible 要设为False
===========================================
Try！

Answer 11

var f2:form2;
f2:=form2.create(self);
sleep(5000);//5秒
f2.free;