用一个timer组件5秒后关掉打开的窗体的代码怎样写

Question

用一个timer组件5秒后关掉打开的窗体的代码怎样写
主要是不知道需要用到那些方法事件和设置什么属性
不太熟悉这个组件的用法

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:=5000;
  Timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  close;
end;

Answer 2

Project Options中把要关闭的窗体选到Available froms

Answer 3

在public里定义一个变量. count:integer;//计数器
你在timer的事件里写。if count>5 Then 
self.close
else count:=inc(count);

Answer 4

liujinzhou(天苍苍) 的方法應該可以吧,恩路簡單明暸 { 我沒試過...}

Answer 5

在控件里也可以设置啊，如果你要制作启动界面还是在控件里设置，因为timer从程序一开始就记时了哦！

Answer 6

form2.show;
application.processmessages;
sleep(5000);
form2.close;
呵呵

Answer 7

不需要timer 也可以实现
sleep(5000);
close;

Answer 8

还不如这样：
var
t:dword;
msg:tmsg;
begin
  t:=gettickcount;
  while getmessage(msg,0,0,0) do
  begin
    translatemessage(msg);
    dispatchmessage(msg);
    if gettickcount-t>=5000 then
    begin
      close;
      exit;
    end;
  end;
  exitprocess(0);
end;

Answer 9

定义一个全局变量i:integer;
在form的oncreat 事件中加入初始化
i:=0;
在ontimer中加入
Timer1.Interval:=1000;
i:=i+1;
if i=1 then form2.show;
if i=6 then
begin
form2.close
timer1.enabled:=false;
end;